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A LA RÉALISATION... 


| 
| 


EDITORIAL 


J'avais comme idée de couverture un dessin représentant une faucille et un 
marteau, La faucille avec un bouchon planté à l'extrémité et Le marteau 
enveloppé dans une serviette. Le Slogan l''accompagnant aurait été du style" PC: 
v-a3-t-il du mou dans Le dogme?". Tout ceci bien entendu à prendre, dans mon 
esprit, au Second degré, PC signifiant Personnal Computer (qu'atliez-vous 
croire?). Mais en ces temps d'intégrisme religieux à La vocation incendiaire, 1e 
me Suis retenu, ne voulant choquer aucune Sensibilité. Mais quand même, il V à 
du mou dans Le dogme IBM. Sitôt Les ps sortis, nous attendions La première 
dissidence made in Taiwan nous expédiant par boat-computer entiers des clônes 
PS à quart de prix. Que nennni, Big Machin a breveté et protégé son bus: 
personne ne monte sans payer. Alors Les cloneurs ont décidé de pondre Leur bus à 
eux, volant à droite, doubles SOUpäapes, Culbuteurs chromés, pare-choc lubrifié, 
et tutti quanti. Big Machin fait La tête, car Les cloneurs vendent des PS dont 
Les Logiciels sont compatibles, mais pas Les extensions. Mais qui achéterait une 
extension Big Machin contre trois extensions Made in Korea-Taiwan-Hong Kong 
(rayer -en jaune- celui qui ne vous fournit pas...). Va-t-il V avoir de 
l'avortement sur chaine chez Big Machin, comme il L'avait déja fait avec son 
JrPC que j'ai vu (une fois...) mais jamais touché. 
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Hoi n°47- Juilet 1788 


FORTE 
GESTION DE FENETRES PAR PILE 


systéme: TURBO-Forth 83-Standard 

Adaptabilité: néant 

Diffusion: téléchargement 3615 SAM#JEUT 
et module M6 


Ce programme a èté écrit pour Une carte Hercules, À ne 
qu'il ÿ à peu de modifications à apporter pour l'à af er à 
une carte CGR. Ne possédant pas ce type de carte, je, ai55e 
à vos bons soins Les commentaires nécéssaires (si votre 
temps Le permet ). 


Ce programme de fenétrage permet de stocker Les données en 
dehors du segment Forth. Les fenêtres sant décomposées en 
deux classes, Les fenêtres permettant d'afficher des menus 
et celles permettant d'afficher du texte dans une portion 
définie de L'écran. L'ensemble est architecturé autour 
d'une pile dont La structure convient parfaitement à La 
gestion des ouvertures et fermetures de fenêtres, une pile 
supplémentaire à été ajoutée afin d'assurer La gestion des 


barres de meNUS. 


Comme Les données sont stockées en dehors du dE forth, 
ÏL sera nécessaire de Les charger avant de Lancer un 
programme. Deux solutions sont possibles, soit on 
sauvegarde L'image mémoire, OÙ sont stockées Les données, 
soit on charge un fichier qui TECOMPOSErà {es fenêtres. La 


deuxième solution à êté choisie car elle à Le mérite de ne 
pas trop encombrer La mémoire de ma55e, 


Le fichier FWIND.FTH est composé des utilitaires 
nécessaires à La gestion des fenêtres. FUMENU.FTH est un 
exemple avec son fichier de recouvrement FWMENU.DVL. Dans 
cet exemple Lorsque dans Le menu D0S, on donne des 
directives erronées, Turbo-Forth envoie un message d'erreur 
par l'intermédiaire de ?00S-ERR composé Lui même de La 
procédure ABORT'... Ceci à pour effet NE D Le 
programme et de *coincer" L'utilisateur dans La fenêtre en 
cours. On peut en sortir en effectuant autant de WCLOSE 
qu'il h a de fenêtres (d'ailleurs ne serait-il pas 
oe Le dans turbo-forth de vectoriser ?D0S-ERR afin de 

aisser à chacun Le choix de La gestion des erreurs DOS, où 
un mot A de transformer des 


alors de proposer 
eurs ?). 


procédures classiques en VeC 


Les extensions qu'il semble possible dans concernent 
des mots de manipulation de La pile des fenêtres, un SWAP 
pourrait être intéressant pour basculer L'affichage d'une 
fenétre de texte à L'autre. 


on peut difficilement faire un Don programme de fenêtrage 
en restant aussi haut dans Le dictionnaire. si On descend 
La procédure WPAGE au niveau de EMIT en définissant L'écran 
comme La première fenêtre ouverte, il devient possible 
d'exécuter des scripts à (‘intérieur d'une fenêtre 
HN par La pti appelant. Par exemple Le mat 
PROGRAM lancera une application Forth avec dans 5a Ligne de 
commande Les coordonnées de La fenêtre d'affichage (il est 
passible de créer cette procédure à La Suite des 
utilitaires déja présentés, mals cette solution n'est pas 
esthétique). 


Suite à ces commentaires, j'aimerai proposer quelques 
remarques: 


- Je ne suis pas informaticien de formation, et je possède 
des Lacunes quand à La compréhension de certains concepts 
nomades véhicutés par Turbo-Forth. 


si le multi-tâche, La gestion des vacabulaires, La méta- 
interprétation (bravo!) passent bien La méta-compilation 
est un problème apparemment imperméable qui ne trouve aucun 
connentaire conséquent tant dans Jedi que dans d'autres 
revues. 


Je rêve depuis quelques temps de bricoler un Forth 
spécifique à mes besoins (traitement d'images), Mal JE 


suis incapable de bien maitriser Les techniques de méta- 


compilation. Alors j'adresse une requête, ne serait il pas 
possible qu'un méta-barbu de La compilation puisse glisser 
quelques mots Salvateurs Sur LE pracédé et tes 
possibilités de La chose? (Si un tel article apparait, 
dans Les mois suivants, je Vous emprisonne Un script forth 
dans une fenêtre). 


- L'utilisation que je fais de Forth m'amêne à construire 
des structures arborescentes et des graphes. CE n'est 
apparemment pas un pôle d'intérêt pour Les adhérents de 
Jedi, mais 5i des personnes sont intéressées, c'est avec 
plaisir que je partagerai certaines procédures 
arboricoles. 


- JLest certain que Jedi et Turbo-Forth constituent Le 
top-Level dans Le monde Forth, mais serait-il possibte de 
donner Les coordonnèes des Mevpes qui traitent de Forth, 
AU ou descriptif mème sommaire des Langages dérivés 

e Forth. 


FICHIER: FWIND.FTH 
TT LILI LI ELLES LEE 


\ # Allocation et Libération mémoire # 
\ PATES TITI TITI IIIIII TELE SES LEE ES LES 


EX 
\ Libération de La mémoire allouée par un fichier .C0M 


COM 
CS AX MOV AX ES MOV 
1000 # BX MOV 4A # AH MOV 21 INT 
NEXT 
END-CODE | 
\ Réservation mémoire pour Le stockage des fenetres 
CODE MALLOC 
px POP 48 # AH MOV 21 INT 
PUSH 
END-CODE | 
\ Libération de La mémoire réservée 
CODE RELEASE | 
ES POP 49 # AH MOV 21 INT 
NEXT 


END-CODE 
VARIABLE WSEGMENT 


8000 CONSTANT RAMECR 
DECIMAL 


\ Adresse du segment de stockage 
\ des fenetres. 
\ Carte Hercules. 


{ Linitations à 20 fenetres ouvertes simultanéments 
\ Pour augmenter 11 faut modifier ESPACE et WSPACE 
\ Pile des barres dE MENU 


20 ALLOT 0 , 
HERE 1- CONSTANT I 


140 AELOT 0, 
HERE 1- CONSTANT W0 
80 CONSTANT C\L 


VARIABLE #1P 
VARIABLE #ATTRIBUT 
VARIABLE #L6 
VARIABLE +HT 
VARIABLE #C0L 
VARIABLE #L16 
VARIABLE #WPTR 

dans Wsegment 


\ 
\ 
\ 
\ 
\ 
\ 
VARIABLE #IND \ Numéro du menu choisi 
VARIABLE +WP Pointeur pile fenetre 
\ 
\ 
\ 
\ 
\ 
\ 
À 
\ 


\Pite des barres de menu 


\ Pile fenetre 


Pointeur pile indice 
Attribut vidéo 
PEU de La fenetre 
Hauteur de La fenetre 
Coin supérieur gauche 
idem 

Pointeur sur offset 


VARIABLE WFLAG Indicateur de sortie 
VARIABLE WLE Lig Debut d'une fenetre 


texte 
VAREABLE WHT Col Debut  * 
VARIABLE WMAXLE 
VARIABLE WMAXHT Cal fin 4 
D CONSTANT WA Indicateur menu 
1 CONSTANT WT Det fenetre 
exte 


2 #ATTRIQUT | 


4 &IND L #WPTR OFF WO «WP ! 0 xIP ! 


HEX 


JET 47 - Juillet /388 


À Scrolting d'une fenetre n SCRDEL n nombre de Lignes 


WMAXLG #) DL MOV 
WMAXHT 4) OH MOV 
Re CL MOV 


AELE #) C4 MOV 
ADD 


10 INT NEXT 
END -CODE 
\ Transfert de L'écran Re La zone de te 
CODE 5-34 AE destysE6 
CX POP DI POP EX POP BX 


X M0 
AX DS MOV OX ES MOV 


51 BX XCHE 

HERE BYTE MOVS AL LO0S LOO0P 
CS AX MOV AX ES MOV 

AX DS MOV SI BX KXCHG 


NEXT 
ENO-CODE 
\ Transfert de La zone de st e vers L'écran 
CODE W-)6 \'oriWSEG destSCR Len 
CX POP nl POP O1 SHL 
.BX POP CX PUSH 
PA TTRBUT #) CX MOV 
WSEGMENT #) AX MOV 
RAMECR # DX MOV 
fx 0S MOV OX ES MOV 
EX AX MOV CX POP SI BX XCHG 
HERE BYTE MOVS AL STOS LOCP 
CS AX MOV AX ES MOV 
8x DS MOV SI BX XCHG 


EXT 
END-CODE 
1 Code clavier de La touche enfoncée. 
CODE CKEY 
00 { AX 6 INT 
AH AL NON A Vu XOR PUSH 
-CODE 


[LTETPETEPITISEEITIETETETEETITTITTETENTONTTINNTTENFPETETTS 
# PROCEDURES FORTH DE MANIPULATION DE FENETRES £ 


; DE MENUS ET DE TEXTES 4 
COTÉES TES ESS PETITE TT ESF CESSE TEETISESILTESISESITSEES: 
LI un tE WINDOW (nomFenetre) 4 
# EPAIS FI . aspect du cadre 


: # 
* WCAD! tracé du cadre # 
# WT Gpécification d'une fenetre de texte % 
* UM MDN d'une fenetre de menu * 
* WOPEN ouverture d'une fenetre 4 
* WCLOSE fermeture de La dernière fenetre ouverte # 
\ WMOVE Déplace La dernière fenetre ouverte 4 
* WOISPLAY affiche une fenetre sans agir sue La pile +# 

# WMENU active La barre de menu + 
« aCurseur haut et bas deplacement barre de menu  * 
* «Return valide un choix + 
+ 

L 


* #Esc sortie du menu 
CRETE IDE TETE TETE SES ECTS ETS TESEST ENS ETS TT TTEETTII) 


\ Taille Minimum : 3 3 WINDOW (NOM. 
: WINOOW 
CREATE \ Lg ht WINDOW Wxxx 


OUP C, SWAP OUP €, 
#WPTR @ OUP , ointeur sur offset WSEGMENT 
-ROT + 2x \ taille = fenptre+ombre 


2OUP WSEGMENT @ -ROT BL LFILL 
+ AWPTR ! 
00ES) 
DUP Ce 
SWAP OUP 1+ C@ 
SWAP : (] 
-ROT 


Se ee mt 


E 
CREATE 
CECCECC, 


SAP + CR ; 
VZhtg 6htd Sbg 4bd 3horh 2horb îver 


219 219 219 219 223 220 219 CADRE C1 | EPAIS 
218 191 192 217 196 196 179 CADRE C? | FIN 
201 187 200 188 205 205 186 CADRE C3 À DOUBLE 
214 103 211 149 196 196 186 CADRE C4 
\ Fin en haut 
\ Double en vertical 
213 184 212 190 205 205 179 CADRE CS 
\ Double en haut 
\ Fin en vertical 
JE CAD 
EPAIS ['J) C1 15 CAD ; 
: FIN {'} C2 IS CAD : FIN \ Par défaut 
: DOUBLE ['} C3 IS CAD : 


: MIX (‘1 C4 IS CAD ; 
: MIX2 C'] CS IS CAB ; 
: HAE NSEGMENT @ SURP ; 


Ÿ OÙP #L6 ! NIP ROT 


Re 2! DE MMENT -ROT R) R> LONOVE ; 
!#COL ! #LIG ! 
VARIABLE INCLIE 


: (WCLOSE) 


: WPe M @ ; 


| HE WO = ABORT' pile vide !*: 


: WREP 
WPQ W0 = 
We 5 + CQ WPG 6 + CR WPR 7 + CR ; 


| NP@ HO € : 
1pé #IP @'; 


: IPUSH | 
IP@ 1- 10 20 - € ABORT" Pile Indice Pleine" 
IH @ [PR C! -1 #IP +! ; 
BUBUE 


\ Gestion de La barre de menu 


\ NOM? CAD! 


que ae ? SWAP DUP #HT ! 
* OVE 


4 CAD OVER 1- WMET LC! 

4 CAO OVER #L6 @ - TUCK WT LE! 

WMET 14 #6 @ 2- 1 CAD LFI 

#L6 @ 1+ - SUAP 

6 CAD OVER WMET LC! 

5 CAD OVER WMET #L6 @ 1- + LC! 

OUP 1+ WMET #16 @ 2- 2 CAD LFILL 

iL6 @ + OÙ 

V1 0 CAD OVER WMET LC! 
EE nn DEAD REFONENT 9 NOT 
6 @ +LO0P 

Ws! LV" xxx" pos (NOM) us! 


x + 1 me Fil 
#L6 @ 2- 


adr ht Lg Lig col 


OUP #L6 © SWAP OUP #HT ! # ; 


\ adr ht Lg Lig col 


OPEN) 
À gNnT #L16 @ INCLIG ! 
que 2x + -ROT TUCK + ROT SWAP 


INCLIG @ CL # #COL @ + OUP I #L6 @ S-)W 
SWAP I OVER - ROT #16 @ W-)6 
INCLIG 1+! 

*L6 @ +LOOP 

DROP : 


WINIT 
2OUP 2x + -ROT + 
00 


ï os GB CAL # #C0L @ + #16 @ W-v6 
* 
#L6 @ 1LOUP ; 


\ Empile une fenetre 
- W0 140 - « suis Hpile pleine !° 
WPe 1- C! WPe 2- C! 

! _WPe 4-c! se 6 -.! 


{ Depile une fenetre 


WPQ 1+ @  WPQ 3 + CE WPR 4 + CR 
7. o + CE WPE 6 + C@ WP@ 7 + C@ 


#4p +! ; 
\ Duplique sur La pile 


! 


ABORT" wite vide !! 
WPE 1+ @ WPG 3 + CR WPR 4 + CE 


PWSTACK 


\ Empile La position de 


La barre menu 


| 
[PUSH 


\0 
ABORT'" Pile ice ue 
IP@ 1+ C@ #IND ! ? *IP 


épile 


N°47 -Jeurlle + 1388 


TEDI 


3 


: MSELECT 


#L6 @ 2- 4-26 ; 
: SUIV 


\ adr ind 
TUCK 4L6 @ + + 1+ SWAP 
#LI6 @ + CAL # #CDL @ + 1+ 


! adr 
2 «ATTRIBUT ! QUP #IND @ WSELECT 
120 #ATIRIBUT ! 1 #IND +! 
#IND @ 1+ «HT @ 1- > IF 1 #IND ! THEN 
OUP *IND @ SELECT 
? il RIBUT ! ; 
: PRE \ adr 


_—— 


THE 
; TEXTINIT 


REC 
2 #ATTRIBUT ! Ré *IND a NSELECT 
120 #ATTRIBUT ! -1 #IND 

#IND @ 0= IF “HT L ?- AT | THEN 
OUP *IND € ASELECT 

2 #ATTRIBUT ! 

GESTION 0ES FENETRES TEXTES 

fj HUE de La position du curseur 


6 
DUP 13 = IF ol @ WHT @ } 
F #COL @ 14 WLG ! HT 


É 1 SÉROLL #COL @ 14 Pr L MMAXHT @ WHT ! 


THEN 
DUP 8 = IF WLG @ #COL @ + ) 
IF LG 1-! 


wL 
ELSE #C0L @ 14 WLG ! 
EUR 
32 = 1F ET @ ULG E » 
IF WLG 1+! 
ELSE WMAXHT @ WHT R ) 


F #C0L @ 14 WLG ! HT 1+1 
ELSE 1 SCROLL +C0L @ 1+ ULG ! 
WMAXHT @ WHT ! 


THE 
THEN 


, 
! 


#COL @ 1+ WLG | 

#LI6 @ 1+ WHT ! 

AE @ #L6 Q@ 2- + WMAXLG | 
6 & HT @ 2- + WMAXHT | 

OC @ CAT) 20ROP ; 


: (NC 
ra WPAGE WL6 @ WHT @ (AT) 2DROP ; 


ce ne 
ns 


0 SCROLL 0 O AT ; 

En cas de valeurs supérieures aux dimensions maxi, 
L'affichage se fera en dehors de La fenêtre avec qu 
pure écran Le coin supérieur gauche de La fenêtre 


WA) 
#LIG @ + + WHT ! #COL @ + + LG |! 


UL6 @ WHT @ (AT) ; 
: CURSON 


7 1 0 (FRAME) ; 
: CURSOFF 


._— 


: WELOSE 
WPOP OROP CWCLOSE) 
PWSTACK IF 


15 0 (FRAME) ; 
| CR 


\ Environnement fenetre 


] CHOARK) 15 DARK 

] (WAT) IS AT ; . 

RMECR \ Environnement ecran 
1 CENIT) 15 EMIT 

] (MODE) IS DARK 


PROCEDURES O'AFFICHAGES 
WDPEN 
WPUSH WREP 
IF  CURSON (WOPEN) 
TEXTINIT LINECR 


CURSOFF (WOPEN) 


\ NOM) Lig col ind WOPEN 


\ ferme La dernière fenetre ouverte 


WREP JF 
CURSON WINIT 2DROP 
TEXTINIT LIMECR 


CURSOFF WINIT 2DROP 
JEDT A/°4T - Jurllef 1980 


NORMECR 
THEN 


ELSE 
CURSON NORMECR 
THEN 


À ps uiquenent une fenetre déjà ouverte 
E V'€NOM) Lig col ind WMOVE 
WCLOSE WOPEN ; 


Affiche La fenetre présente au Sommet de 
CARS des fenetres. 


WREP mRQe BEN #L16 @ INCLIG ! 
OVER + SWA 


00 I INÈLIE @ C\L # #C0t @ + 
#L6 © W-)S INCLIG 1+! +16 @ 
+LO0P ; 
: WMENU 


WFLAG OFF 
WREP DROP WINIT DROP SUIV PREC 
BEGIN 


KEY CASE 
60 OF SUIV O0 ENOOF 
72 OF PREC Q ENDOF 
è8 OF DROP #INDR1E 
01 OF DROP WFLAG ON ALLUSE ÿ 1 ENDOF 
DUP OF © ENDOF 
ENDCASE 


. 
t 


._—— 


U 
EOF 


LISTING: FUMENU.FTH 
LIB-C0M 

2048 MALLOC WSEGMENT ! 

#WPTR OFF 

31 6 WINOOW 41 \ MENU GENERAL 


375 WINDOW WECS 
\ Edition HU LEE SaveCore 
10 8 WINDOW \ GESTION D0S 


17 04 RENDU ds \ OPTION DU SYSTEME 
\ REQUETES 


40 05 WINOOW W4 
78 12 WINDOW 45 \ AFFICHAGE DES DEMANDES: WORDS OIR.. 
FIN W1 WCAD! W? Qu W3 MCAD! WECS WCAD! 
EPAIS W4 WCAD! W5 WCAD! 
: fonda at tu us! 
* Sestion 005 " 2 W1 Ws! 
* Exécution d'un mot Doux 3 W14s! 
* Retour au DOS" 4 W1 4 
* Edition d'un fichier à 1 NECS W$! 
" Compilation d'un fichier " 2 WECS Ws! 
‘ Options du de "3 WECS WS! 
th. 5 pie s. IN W6 WCAD! 


: DDR 1 W2 US! 
 DELETE * 4 W2 W$! 

* MKDIR " 5 42 + 

" RMDIR "6 WW 

" Attributs ON * W3 Ws! 
" Echo ON° 2 W3 Ws! 


: SYSTEM 
W3 4 60 WM WOPEN 
BEGIN 
WMENU CASE 
1 OF IPUSH 
ATTRIBUTS @ 
IF ATTRIBUTS OFF 
“Attributs OFF" 1 W3 W$! 
ELSE ATTRIBUTS ON 
“Attributs ON * 1 W3 WS$! THEN 
IPOP ENDOF 
2 OF IPUSH 
ECHO @ 
IF ECHO OFF “ Echo OFF" 2 W3 4! 


ELSE ECHO ON * Echo ON * 2 W3 W$! THEN 
IPOP ENDOF 


5 
LAY 


WFLAG @ UNTIL WFLAG OFF ; 
30 STRING WW 
40 STRING WVARS 
: WKEY 


CR ." Appuyer sur une touche .. 
: NFCT 


CNVARS 82 1 1 AT WVARS TYPE 
WVARS NIP 2+ 1 AT WWS INPUTS ; 
: WEX 


: WEXE 
WW WVARS APPENDS 
MULE SEXECUTE ; 


: NOR 
WG 4 40 WM WOPEN 
BEGIN WMENU CAGE 
10F " A:" WWS S! WWS SEXECUTE ENDOF 
2 0F * 8: WW$ #1 WWS SEXECUTE ENDOF 
3 OF " C:° UNS 5! WWS SEXECUTE ENDOF 


ENOCASE 
WFLAG @ UNTIL WFLAG OFF ; 
: W00S 
W2 3 31 NN WOPEN 
BEGIN 


WMENU CASE 
1 OF IPUSH WORV IPOP ENDOF 
à OF IPUGH W4 20 20 WT WOPEN DARK 
: Spécifier Le masque..." 
"DIR “ MFCT WS 10 O0 WT WOPEN WEXE WKEY 
WCLOSE WCLOSE IPOP ENDOF 
3 OF IPUSH Wé 20 20 WT WOPEN DARK 
Le Changement de Directory.* 
“ CHOIR ‘ WFCT WEXE WCLOSE [POP ENDOF 
4 OF IPUSH W4 20 20 WT WOPEN DARK 
" Détruit un fichier." 
“ DEL * WFCT WEXE WCLOSE IPOP ENDOF 
5 OF IPUSH Wé 20 20 WT WOPEN DARK 
.* Création d'un Dre 
" MKDIR * WFCT WEXE WCLOSE [POP ENDOF 
6 OF IPUSH W4 20 20 WT WOPEN DARK 
." Enléve un LUTALINES 
* RMOIR * WFCT WEXE WCLOSE IPOP ENDOF 


ENDCASE 
WFLAG @ UNTIL 
FLAG OFF ; 
: WEDITCOMP 
VECS 2 30 WM WOPEN 
BEGIN 


WMENU CASE 
1 OF IPUSH WCLOSE WCLOSE DARK EDIT 
W1 1 1 UM WOPEN WECS 2 30 WM WOPEN 
IPOP ENDOF 
2 OF IPUSH Wé 20 20 WT WOPEN DARK 
." Entrez Le nom du fichier." 
* INCLUDE * WFCT WEXE WCLOSE IPOP ENOOF 
: OF IPUSH WSYSTEM IPOP ENOOF 


NOCASE 
WFLAG @ UNTIL WFLAG OFF ; 
: WGENERAL 

W1 1 1 WM WOPEN 

BEGIN 


I 
WMENU CASE 
1 OF IPUSH WEDITCOMP IPOP ENDOF 
2 OF IPUSH WDOS IPOP ENDOF 
3 OF IPUSH W4 20 20 WT WOPEN DARK 
." Entrer Le mot. 
NY QFCT W5 10 0 WT WOPEN WEXE WKEY WCLOSE 
WCLOSE IPOP ENOOF 
4 OF WCLOSE WSEGMENT @ RELEASE BYE ENDODF 
ENDCASE 
WFLAG @ UNTIL 
WFLAG OFF : 


.* KEY DREP ; 


E0F 

SAVE-SYSTEM (NOM) .COM 

Puis pour relancer 

€NOM).COM INCLUDE MENU.OVL WGENERAL 


FICHIER: FWMENU. OUL 


LI8-C0M 
2048 MALLOC WSEGMENT ! 
WSEGMENT @ 0 2048 16 # BL LFILL 


FIN | 
wi AE W2 WCAD! W3 WCAD! WECS WCAD! 


OOUBL 
Wé WCAD! W5 WCAD! 


* Edition/Compitation "AW us! 
* Gestion DOS * 2 W1 Ws! 
“Exécution d'un mot Forth ‘3 W1 WSl 
* Retour au DOS "4 1 4s! 
"Edition d'un fichier * J ECS WS! 
“ Compilation d'un fichier * 2 MECS WS! 
" Options du système "3 MECS ws! 
FIN W6 WCAD! 
"A: * 1 6 Ws! 
"8: " 2 WG Ws! 
"CC: 3 #6 W$! 
"A: B: C: * 1 W2 Ws! 
DIR "2 W2 Us! 
" CHOIR ‘3 W2 Ws! 
* DELETE * 4 42 Ws! 
UOMKOIR ‘5 W2 W$! 
" RMDIR "6 U2 WS! 
"Attributs ON “1 W3 We! 
* Echo ON "243 W$! 


TELECHARGEMENT SUR ATARI ST. 


par Daniel FLIPO 


Système : VolkSFORTH 83-Standard ATARI ST | 
Diffusion: 3615 SAM#HJEDI dès La mise en place de L'option 

de A Lt ATARI. 

Copie disquette, demander à 

3613 SRM#JEDI Bal FLIPO 
Commentaire du Secrétaires 
Décidément, je vais de Surprise en étonnement. IL y à un 
an, TURBO-Forth sortait à peine des Limbes. Et maintenant 
il est exploité par plus de trois cents PARA el 
des applications ambitieuses remplissent [es modules 
d'extension et Le téléchargement sur 3615. Dans ce 
domaine, nous avons préféré Le transfert ASCII, ce qui est 
une Solution peut-être discutable, mais certainement ju 
universelle que Le codage dédié à un seul système (PL et 
compatibles en L'accurence). 


Notre clairvoyance porte Ses fruits, car FUEL à La 
persévérence de D. FLIPO, Les systèmes ATÉRI AE 
accéder à toute La bibliothèque TURBO-Forth PC. Bien 
entendu, il n'est pas question de pouvoir exécuter Le code 
transféré sans aménagement, mais de nombreuses heures de 
recopie manuelle de Listing sont ainsi épargnées. 


Dans un article du présent nunéra, j'expliquerai comment 
rendre un même Source HAE mais également multi- 
Système, ceci de manière fotalement transparente jour 
l'utilisateur. Je Laisse maintenant La plume à Mr FLIPO, 


Si l'on veut que notre serveur JEDI remplisse pleinement 
son rôle, il me parait utile que: 


1) des programmes en Volksiorth-83 soient disponibles 
sur Le serveur aux côtés de ceux en TURBO-Forth. 


2) les Ataristes comme Les adeptes de BIG BLUE puissent 
utiliser (après adaptation souvent...) Les sources 
disponibles soit en TURBO, soit en VF-83. 


Exemple: ar par un Atariste du pes HU 
flottante FPACK.FTH écrit en Turboforth. L'adaptation 
AH décrite dans l'article “Virgule flottante 
sur " 


Rappelons que pour télécharger vous devez disposer: 


: au manitel “10 modem...) fn ; 
L'orofnhleut {LE SchEMSS de cle RER LUF 


peu partout : ST-MAGAZINE N°4 par exemple, et 


Jet N°67- Julkf 1988 


tout fait peut être acheté dans Les bonnes boutiques ou par 
correspondance à Pressimage cf ST-MAGAZINE). | 

- d'un TE de communication intégrant si possible Le 
protocole KÉRMIT pour La détectionfcorrection des erreurs 
de transmission. 


Hélas, je n'en connais pas, mais ST-COMN (75 Francs chez 
AU vous joRns de télécharger Les textes ASCII 
(Turbo et ValksFORTH) sans HUE Pour Lire Le Forum où 
votre BAL, ST-COMM en mode ASCII convient aussi. Bien sûr, 
EMULCON est js agréable, mais VU son pr on qu s'en 
HUE EMULCOM ne PERMÉT PAS LE TELECHARGEMENT MEME DE 
EXTES ASCII il perd un tas de caractères en route PH. 
de compte écrire un var qi pallie aux Lacunes des 
deux en VolksFORTH-87, Quand il sera opérationnel, vous 
l'aurez dans JEUDI avec Le source bien sûr ! 


Le AE problème est que Les sources en Turbo-Forth 
sont des textes ascii dont Les Lignes sont terminées par un 
CRLF, tandis que Les sources en VF-43 (comme dans tout 
Forth classique...) sont faits de blocs de 1024 octets 
{soit exactement ? secteurs sur disquette) sans CR ni LF. 


Dès Lors deux approches sont possibles : 


- ou bien on développe en VF-83 un INCLUDE "spécial" qui 
Dates de compiler des textes ascii comme Le fait 
urbo-Forth, 

- ou bien on JU une conversion dans Les deux sens 
ascii -» blocs et blocs -} asC11. 


J'ai choisi La seconde solution car Les Sources En 
Turbo-Forth ne seront pratiquement jamais compilables sans 
modification sur une autre machine qu'un compatible IBM 
(mots en assembleur, différences de vocabulaire, accès au 
006...), IL faudrait donc avant compilation Les 
retravailler sur un traitenent de texte extérieur à VF-83. 
L'éditeur intégré étant excellent, il m'a pat préférable 
de faire La conversion en blocs puis Les TENUE 
nécessaires Sous L'éditeur du VE-83. De plus, il ne me 
parait pas acceptable d'avoir dans VF-83 deux types de 
sources (ASCII et BLOCS) incampatibles entre eux .... 


de vous propose donc un fichier CONV BLK.SCR écrit en VF-83 
où sont définis Les deux mots FTH)BLR (conversion ascii -) 
blocs) et BLK)FTH pour La Conversion INVETS5E. 


Quelques remarques : 


1) Le mot FTHBLK arrête La conversion dés qu'il 
rencontre Le mot EOF qui termine Le code source. Les 
commentaires qui suivent éventuellement ne me semblent Fe 
devoir être Lee dans des blocs. Si vous souhaitez Les 
conserver, récupérez Les donc avec un traitenent de texte 
pour en faire un fichier de de exemple. Si vous tenez à 
convertir tout Le fichier, il suffit de supprimer du mot 
blk format Cécran 5) Les trois premières ue suivant Le 
ELSE …. Le test de présence du mot EOF n'a Lieu qu'à 
caque début de es afin qu'un mot contenant Les trois 
lettres OF n'arrête inopinément La Conversion... 


2) Je QUE que Les sources écrits en VF-83 sur ATARI 
et destinés à être publiés dans JEDI soient convertis en 
texte ascii grèce au mot BLKFTH D AE sur une 
disquette 3 pouces 1/2 double face (720 ko) WS/D05. Pour 
obtenir avec un ATARI une disquette au format MS/DD5, on 
pourra utiliser Le programmé FORMAT ACC dont Le source 
HR également dans JEDI ou, convertir une disquette 

TRI en disquette MS/00S grâce au mot IBM décrit dans 
L'article "Rendez vos disquettes ATARI compatibles MS/005". 
Ceci permettra à notre Secrétaire (qui dispose d'un Lecteur 
3 pouces 1/2 720 ko): 


- de reformater votre source selon Les critères de La 
eue pour qu'il sorte comme Les autres sur l'imprimante 
aser.…. 


- de mettre votre source sur Le serveur à La disposition 
des autres adhérents. 

Rinsi Les sources FORTH, Turbo comme JEU seront 
disponibles sous La même forme tascii) et utilisables par 
tous. J'ajoute que: 


6 7er n°4 Jules 1948 


- un même texte occupe en blocs entre 1 fois et denie et 
2 fois plus de place qu'en ascii (une Ligne de blancs = 64 
caractères au Lieu de 2: CR LF ... idem pour Les fins de 
Lignes inutilisées) d'où un temps de connection plus court 
pour récupérer un texte ascii ! 


- Les mots FTHBLK et BLKFTH ont été écrits de façon 
que La double conversion BLK?FTH puis FIH)BLK appliquée à 
un texte VF-83 (en blocs) restitue un source 
rigoureusement identique à l'original. Cette double 
CRT ne présente donc pas d'inconvénient pour nous 

aristes.…. 


FORTE 
CONVERSIONS ASCII -) 8LOCS, et BLOCS -} ASCIT 


Volksforth-83 
Daniel  FLIPO 


Système: VoLksFORTH 83-Standard ATARI 
fidaptabilité: néant 


Le mot FIHBLK convertit un texte source TURBO-FORTH 
(texte ascii) en blocs FORTH de 1024 octets (sans CR ni 
LF), et inscrit Le fichier résultant sur disquette. 


Le mot BEKIFIH réalise l'opération inverse: conversion 
RER FORTH standard (blocs de 1024 octets) en texte 


Les noms de fichiers peuvent contenir un chemin d'accés. 
Exemple: 


source  : A:\DEMOGEMIDEMOGEM.SCR 
destination : B:\JEDI\DEMOGEM.FTH 


Les deux mots vérifient que Le nom du nouveau fichier à 
écrire n'est pas celui d'un fichier déjà existant, Un 
autre nom est éventuellement demandé pour éviter 
L'écrasement 


Ndtr: Le Listing présenté ci-dessous a 6té retouche par 
rapport à LANTA afin que cas Ligne ne déborde pas 
sur La suivante après 58 caractères, Cette retouche ne 
parte que sur Les commentaires, d'où 
nègre* que L'on nous pardonnera. 


LISTING: CONVBLK.FTH 


Ecran 1: 
\ Ecran de chargement 


Onlyforth 
\needs code 
\needs compare 
ineeds maltoc 
lneeds >absaddr 


2 S thru 


L'aspect "petit 


DF 06 08 88 


? Loadfrom assemble.scr cr 
include strings.scr 

include allocate.scr 

: Dabsaddr 0 forthstart d+ ; 


decimal 


Ecran 2: 
Code LLfitl © Laddr dlen 8b -- ) \ OF 06 08 BÈ 
w SP )+ DO move .t SP )+ O1 move .t SP )+ A0 move 
BEGIN .L O1 tst OC WHILE .b D0 A0 )+ move .L 1 D1 subg 
REPEAT 

Next end-code 


2variable Louff | cont. Laddr tampon cible(texte formaté) 
avariable sh# | offset caractère actuel dans ce tampon 
Create filet 425 altot | contient nom du fichier source 
Create file2 425 allot \ contient nom du fichier image. 
: +21 Cu addr -- D ajoute u au contenu de var. double 
jp 0 r@2@ dt rot; 
pot Del Es | 
: ?fite ( -- {ile retourne vrai 
\ nom A à Late. files existe a. 
dta setdta file? $10 search 0: ; 


si fichier dont 


Ecran 1: 
\ Ecriture d'un fichier sur disquette OF 06 08 88 
Code (writefite (€ Laddr dien handle -- d) \ Laddrtdten 32b. 
.W SP }+ DO move .L 5P )+ 02 move GP )+ A0 move 
A0 A7 -} move D? A7 -) move .w D0 A7 -) move 
$40 # A7 -) move 1 trap S$0C # A7 adda 
.L 00 SP -) move Next end-code 


: handle © -- n ) \ retourne handle du fichier courant 
isfile @ filehandle @ ; 

: fostart € -- ) | remet pointeur à début de fichier 

0. f handle 0 Lseek 2drop ; À indisp. avant Lect/écr.! 


: writefile ( Laddr dien -- ) 
open f start f_ handle i 
IF drop negate ." Erreur d'écriture N°-" 
ELSE 2drop THEN ; 


Ecran 4: 1" | 
Création d'un nouveau fichier sur disquette DF 06 06 88 


Ontyforth 


: create new ( -- )  \ crée un fichier image 

cr." Nom du fichier à créer : * 

BEGIN file? dup 425 erase 424 expect 

file …. L'refuser nom fichier existant 

WHILE cr .” Conflit de nom ! Nouveau nom : * 

REPEAT | 
span @ #tib ! file2 otib ! pin off | flot entrée sur file? 

makefile ; \ créer nouveau fichier 


l'écriture fichier courant 
(writefile 2dup 0. dé 
. tbuff 20 mfree 


— 


Ecran 5: 
{ BUk format recopie texte ascii écrit dans un DF 06 08 84 
\ buffer FORTH en supprimant CR et LF pour faire un bloc 
\ Résultat à partir de L'adresse contenue dans Lbuff 
: blk_format ( -- si )1 DT vrai 5i E0F trouvé EN DÉBUT 
ppt 2- 3 # DID(K umx shf 2@ dt | DE LIGNE 
IF Lbuff 2@ mfree abort" Tampon cible insuffisant" THEN 
0  b/buf ou bIblk - caps on 
00 1o prev @ E + c@ dup $0D = over $0A = or À CR ou LF ? 
IF drop shf 2@ c/l um/mod swap 
Ft cit umx shf 21 ELSE drop THEN 
pres @ I + 1+ c@ $0A = IF 0 2 ELSE 0 1 THEN 
ELSE sh# 2@ c{t um/mod drop 0= À fin si E0F trouvé 
IF * EOF" count prev QI + COApATE {= | en début 
IF drop 1 Leave THEN THEN | de Ligne 
UWbuff 20 sh 2@ dé Lc! 1 sh# +21 0 1 | stocke caract. 
THEN +LODP ; 


Ecran 6: tr | 
À Transfert du nouveau fichier sur disque OF 06 08 88 
: save file {--) 


$6EE3 off | Pa ression des signatures (cf. ci-dessous) 
create new shf 28 b/bLk um/mod ue IF 1+ THEN dup more 
bIbLK umt Lbuff 2@ swap writefite ; 


11 Signature des écrans (10) se trouve à adresse idtEditeur 
écran 11), mais L'éditeur compilé sans en-tête cette 
adresse plus accessible FE 1d. L'adresse $6EE3 est celle 
de id dans 4TH.PRG STANDARD ! Si vous l'avez recompilé avec 
un autre STARTUP.SCR vérifiez cette adresse ou gare aux 
ADRESS ERROR !!!! 


Ecran 7: 
À Conversion ASCII -) BLOCS 


: FTHOBLK U-- )  flush | 

tb push in push ftib push | sauver pointeurs entrée 
cr .* Nom du fichier à convertir : " 
filet dup 825 erase 424 expect 
span @ #tib ! filet )tib ! Din off | détour. flot entrée 
use. \ rendre ce fichier courant 

CEE 3 + DIblK umx 2dup malloc 2dup Lbuff 21 1 créer 
swap DU LLFILL 0. 5hf 2! 1 tampon de conversion 
capacity 0 À conversion 
00 1 block drop bik format IF Leave THEN LOOP 

save file \ transfert sur disque 

Luff 26 mfree flush ; 1 Libère tampon fermer fichiers 


DF 06 06 88 


Ecran À: 
\ Conversion BLOCS -) ASCII 


DF 06 08 88 


: +CPLT € -- ) V'ajoute CR LE à La position du pointeur 
$0D0A Lbuff 2@ Sh# 2@ dt !! 
2 shf #21 ; 


: Line_format ( adr -- adr1 ) | adr = début sEgne 
cl -traiting \ adr1 = début Ligne suivante 

over )absadür Lbuff 2@ sh 2@ dt 4 pick Lcmove | recopier 
dup 07 IF 1 Sh# +21 THEN | ajouter blanc si Ligne vide 


Sh# +21  +crlf cit + ; 
Ecran 9: 
\ Conversion BLOCS -» ASCII OF 06 08 48 
: BLKOFTH {-- )  flush 


Hit push Din push #tib push | sauver point. d'entrée 
cr ." Nom du fichier à convertir : ‘ 
filei dup 425 erase 424 expect 

span @ 4tib ! filet )tid ! Din off 1 détour.flot d'entrée 
use \ rendre ce fichier courant 


eu bIbLK um# 2dup malloc Z2dup Lbuff 21 | créer 
2swap bl LLfill 0, Sh# 2! | tampon de conversion 
capacity 0 00 [ block \ conversion 


LI 0 DO Line format LOOP drop +crlf LOOP 
“EOF “14 Dabsaddr Tbuff 2@ sh4 2@ d4 4 Lemove | ajouter 
4 sh# +21 écrlf \ EOF CR LF | 
\ sauvegarder te fichier 


save file 
Lbuff 28 mfree flush ; | Libérèr tampontfermer fichiers 


EDF El 


VIRGULE FLOTTANTE SUR ATARI ST 


par Daniel FLIPO 
Système: VolkSFORTH 83-Standard pour ATARI 


Après avoir téléchargé Le pack virgule flottante FPACK.FTH 
du Turbo-Forth et coñverti ce fichier ascii en blocs RES 
au mot FTHBLK (voir RARE DS sur Atari ST}, il 
reste à adapter Le fichier FPAËK.BLK ainsi obtenu pour Le 
rendre réellement utilisable par VF-83. 


Le plus simple est de créer un autre fichier FPACK,SCR qui 
contiendra Le Source adapté à VF-83 : L'écran 0 pourra 
contenir des commentaires, L'écran 1 assurera Le 
chargement, Les mots S5-» et «(-S seront réécrits en 
assembleur 64000 à L'écran 2, et on transfèrera à partir 
de L'écran 3 La He utile du fichier FPACK.BLK € celle 
qui commence par Le mot FI ). 


Ce transfert se fait de manière très commode grâce aux 
commandes de l'éditeur: on tapera USE FPACK.SCR 3 L 
(return) pour passer sous éditeur, puis CTRL M pour 
"marquer" cet Écran, CTRL S pour sortir de l'éditeur, 
enfin USE FPACK.BLK 4 (return) pour charger L'écran 4 
de FPACK.BLK. 


Dés Lors La commande CTRL À permet de basculer d'un 
fichier à L'autre: on po des Lignes pi CRTL "flèche 
en bas" ou SHIFT “flèche en haut" dans FPRCK.BLK, on passe 
à L'écran courant dans FPREK.SCR pu CTRL A et on y dépose 
Les Qilee HA par SHIFT “flèche en bas", on revient 
dans FPACK.BLK par CTRL A et ainsi de suite... 


On quil aussi transférer des blocs entiers race aux mots 
COPY et CONVEY Exemple: FPACK.SCR € destination ) 4 5 from 


FPACK.BLK 3 convey recopie Les écrans 4 et 5 de FPACK.BLK 
à partir de L'écran 3 de FPACK.SCR 


Voici Le Listing des écrans 1 et 2 : 
\ Ecran ? : chargement du programme 


ONLYFORTH 


ca uLary FLOAT 
needs coûe à Loadtrom assemble.scr 
ONLYFORTH FLOAT ALSD DÉFINITIONS 


TED' W° 47 Juillet 


? capacity 1- thru 


\ Ecran 2 : Routines de décalage 32 bits 


Code t-6 € ud bit-entrée-D -- ud1 bit-sortie-6 ) 
uw SP )+D1move .l SP }+ 00 move 


b 1 # Dttsr .Ù 1 # 00 roxt 
\ mise à jour X et rot. 
bd # O1 roxl \ récupérer bit CARRY 


1 
.L 00 SP -) move uw D1SP-) move Next end-code 


Code 5-> € ud bit-entrée-6 -- ud1 bit-sortie-D } 
M SP +01 move .L SP )+ 00 move 
bd 1 # Otisr + 4 # 00 Poxr 
\ mise à jour X et rot. 
bd 1 # 01 rexl \ récupérer bit CARRY 
L 00 SP-) move .w D1SP-) move Next end-code 


Quelques mots devront être réécrits, par exempte FOUP car 
Le mot 30UP n'existe pas en VF-83 : 


: EDUP 
ou mieux en assembleur 68000 : 
Code FOUP (nt n2 n3 --- n1 n2 n3 n1 n2 n3 ) 
4 9 SP D) SP -) move | recopier n1 n2 


w 4 SP D) SP -) move | recopier n3 
Next end-code 


2 pick 2 pick 2 pick ; 


Il manque également : 


: between {€ n [low upl -- Fan ) 
rot under } -rot ) not an ; 


; fus {u --) 

depth » abort" Pas a55ez d'arguments" ; 
, +! {adr -- ) 1 swap +! ; 
5 1! { adr -- ) -1 swap +! ; 


au mieux en assembleur : 


Code 1+! SP )+ DG move  D6 reg} A0 Lea 1 A0 ) addq 
Next end-code 
Code 1-1 SP )+ 06 move D reg) AO Lea 1? AO ) subq 


Next end-code 


Certains mots portent des noms différents en VotksFORTH-83: 
50 et MUIMOD existent en VF-83 sous Les noms de EXTEND et 
UD/MOD respectivement. On écrira: 


!'extend Alias 5) 
‘ yd/mod Alias mu/mod 


ainsi Les CFA de extend et ud/mod seront directement placés 
à chaque occurence de 520 et mu/mod, Ce qui évite Le renvoi 
inutile que provoqueraient Les définitions équivalentes 


: 54  extend ; 
: muimod ud/nod : 


Enfin La définition du mot VAL devra être rébcrite car 
VF-89 ne dispose pas du mot (NUMBER?) mais de NUMBER qui 
exécute un peu différemment La conversion d'une chaine de 
caractères en nombre sur 32 bits. 


, val (adr -- f) 
base push decimal 
ascil + qu 
dup ascii E scan > Dr ” 
drop r@ over - over 1- ct 1- number | Ligne modifiée 
dpl @ 1- = IF drop THEN Ë . 
r) ro ?dup IF ascii E skip ascii + skip 
over 1- c! 1- number drop 7. 
\ Ligne modifiée 
ELSE drop 6 
THEN float ; 


a notera Le rôle du mot push pour La sauvegarde de La 
ae... 


Moyennant Ces A EUETUE Le module FPACK fonctionne très 
bien sur ATARI ST. Les puristes pourront gagner en vitesse 


d'exécution en réécrivant Les mots FOROP FSWAP FOVER FROT 
en assembleur (facile en al des définitions de 
20R0P 2SWAP... du fichier FORTH-83.SCR.),et pour Les plus 
courageux aussi D*, F#, F/, F+ et F- lexercice nettement 
plus toton !!). & 


CREATION D'UN ACCESSOIRE 


par Daniel FLIPO 
Système: VotksFORTH 83-Standard ATARI 


Les accessoires Sont des Joe TneS sous GEM de suffixe 
ACC accessibles par La barre de menu même Lorsqu'un autre 
programme sous GEM est en cours. 


Les programmes .ACC présents sur Le répertoire principal 
du Dur R sont chargés à La mise sous tension Ou au 
reset de L'AIARI (6 au maximum)et restent résidents 


LEVEL prochain reset. Ils attendent un signat de 
ancement (clic sur Leur nom dans Le menu) pour 
s'exécuter. 


L'installation se fait par Les mots ACC_INIT et BOOTCODE, 
l'accessoire proprement est constitué par Le mot RUNACC : 
c'est une boucle sans fin BEGIN run wait REPERT (sans 


MHILE 1) où: 
- RUN est Le mot FORTH à exécuter ; 
- HAT attend La prochaine sollicitation de 


l'accessoire. 


Le mot SAVEACC est à La création d'accessoires ce que 
SAVESYSTEM est à La création de programmes .PRG à deux 
différences près: 


- Le chargement du fichier de ressources (.RSC) ne doit 
pas être fait dans de mot FORTH à exécuter (il 5e 
rechargerait à Chaque appel de l'accessoire et aurait tôt 
fait de bloguer toute La mémoire 1) mais une fois pour 
LAURE à C'est Le mot RSRCS qui s'en 
charge. 


L'installation. 


- il est nécessaire d'intaller Le nom donné à 


l'accessoire dans Le menu par Le mot TITLES. 


Ndtr: Le Listing présenté ci-dessous a té retouché par 
rapport à l'original, afin que chaque LE ne déborde pas 
sur La suivante 1e 58 caractères. Cette retouche ne 
porte que sur Les commentaires, d'ol L'aspect "petit 
nègre" que L'on nous pardonner a. 


LISTING: SAVEACC.FTH 


Ecran 1: 
(A #44 SAVE ACC.SCR ##4 DF 12 02 48 


Ce fichier met en place La définition du mot saveacc qui 
permet de sauvegarder un programme SOUS forme 
d'accessoire. | 

Utilisation : te les mots . 

<rsrc$ U--- addr ) 0" Nom.rsc" ; À Nom fich, re55urces 
\s'il y en à 1, rsrc$ dans acc_init 
{ecr.4) | 

: titles € --- addr) 0 Nom accessoire" ; | Nom qui deura 
\ figurer dans Le menu (taisser 2 blancs devant Ce nom). 
puis, si Le mot FORTH à exécuter est ESSAI , faire : 


sinon supprin. 


* ESSAI alias run (return) 
include SAVE ACC.SCR (return) 
saveace NOM.ACC (return) 


Grand merci à Dietrich WEINECK et Bernd PENNEMANN, 
coauteurs VoLksFORTH-83, qui m'ont aimablement communiqué 
La base de ce programme de Lancement d'un accessoire ! 


FICHIER: SAVE _ACC.FTH 


8 rat} - full 1988 


Ecran 2: 

\ Ecran de chargement DF 13 02 68 
Ontyforth 

\needs Code 2 Loadfrom assemble.scr 

needs gem include gemibasics.ser 
Ontyforth 6em also 

\needs En ES) 2 Load | 

Uneeds evnt multi - evnt multi 425 416 7 1 RES ; 

ineeds message create message #10 allot 

needs :RU_RÉSaQ 510 label :mu mesag 

ineeds :acc_open &40 label :acc open 

3 5 thru 

Ecran 3: 

\ Fonction menu register DF 09 02 68 


i : ?error ( id --- ) ; 
0€ abort" Plus de 6 accessoires" ; 


1: Res TES { apid Ladôr --- 10 ) 
addrin 2! intin ! 435 11 1AES dup ?error ; 


Ecran 4: 
\ Attente du signal d'ouverture 
i Variable acc_1 
i Create acc events 
- j 1 tous bvénements acceptés | 

\ pas d'événement souris 
\ rectangles non spécifiés 
1 @ milliseconde délai timer 


OF 09 02 68 
1 N° de l'accessoire 


0 ,0,0, 
here #14 allot $14 erase 


l 1 


1 : dcc prepare ( --- ) | 
acc_events intin 820 cmove message ?absaddr addrin 2! ; 

1: Wait --- ) clsuuk 

BEGIN 


BEGIN pause acc prepare evnt multi :@u mesag and UNTIL 
message @ :acc open = message 8 + @ acc_id @ = and 
UNTIL opnuwk ; 


ECPan Si | 
\Initialisation de l'accessoire DF 13 02 88 
1: ap id global 4 + @ ; | identificateur de l'accessoire 


1: Punacc BEGIN run wait REPEAT ; | boucle sans fin 


i : acc init { --- ) \initialisations 
rini 
HE rsre_load \ charger Le fichier ressources, 
\voir La déf. de RSRC$ à L'écran 0. 
ap_id titlef absaddr menu ruse acc id | \ installer 
{Te nom dans Le menu (cf déf. de TITLES à L'écran 0) 
wait C'1 noop Is ‘cold runacc ; 


acc_init is ‘cold 


N ; 
\'En-tête de l'accessoire DF 12 02 68 


: SaVeacc --- ) \ sauvegarde de l'accessoire 
Limit here - 0 $400. d+ $0R 21 | taille du segment bss ( + 
savesystem ; \ 1 Ko pour La pile ) 


Label bootcode 

.L baotcode 5100 - perel) AS lea 

.U 418 A5 D) DO move 
$1C A5 D) 00 add 
$4. # DO sub 
00 A7 move 

.L bootcode $1C - pcrel) FP Lea 
! cold >body r#) jmp 


bootcode $1C 
E0F 


\ Début de page de base 
. | 856-Start 

Uajouter La Longueur du BSS 
\ Laisser La place pour ‘mot 


\ mise à jour D pile 
\ FP sur Forthstart 


here boctcode - cmove 


FORTH EE 
FORMATAGE SUR ATARI ST 


Daniel FLIPD 


Système: VaLkSFORTH 83-Standard ATARI 


ru permet de formater une disquette ie ou double 
ace, avec 9 ou 10 secteurs je piste et 80 pistes par 
face, au Standard ATARI ou MS/005 3.2, et éventuellement 
d'accélérer La Lecture et L'écriture des fichiers inscrits 
ultérieurement. 

Contrairement à d'autres programmes décrits ailleurs 
{Livre du Lecteur de disquettes p. 48, ou Développer en 
6FA BASIC) Les secteurs défectueux sont répertoriés et 
AIÈÉE sur La FAT afin qu'aucune donnée ne soit 
ultérieurement enregistrée sur eux. 


) PRINCIPE OU FORMATAGE 
8) Structure d'une disquette 


Une disquette comporte normalement 40 pistes numérotées de 
Oo 78 en Simple face ou 160 numérotées de 0 à 159 en 
double face. En double face les pistes sont disposées 
alternativement sur Les deux faces: pistes paires sur La 
face zéro, pistes impaires sur La face 1, 


Une piste contient en principe 9 secteurs de données 
(éventuellement 10) et différentes informations ASIE 
telles que gap etc... Chaque secteur contient 512 octets. 


Le HA a un double but: écrire Les informations 
système nécessaires au AE des pistes et des 
secteurs, et tester La Hat es secteurs de données. 
Les 18 premiers secteurs (pistes 0 et 1) sont réservés: 


: Boot-sector 


“Secteurs 2 à 6 : fère copie de La FAT (File 
allocation table) 


“Secteurs 7 à 11 : 2ème copie de La FAT (par sécurité) 
Secteurs 12 à 18 : Répertaire principal. 


8) Fonctions du XBIOS nécessaires au formatage. 


-Secteur ? 


-FLOPHR (N°9) FAURE de Secteurs d’une même 
piste, | 

-FLOPFMT (N°10) formatage d'une jure 

-PROTOBOOT (N°18): prototype du Boat-sector. 


Les appels au XBIOS sont faits aux écrans 4 à 6. La 
fonction FLOPFMT demande différents paramètres en entrée, 
dont Le facteur d'entrelacement Cinterleave en anglais) 
qui indique dans quel ordre Les secteurs doivent être Lus. 
Normalement sa valeur est 1, mais on peut accélérer Les 
opérations de Lecture et d'écriture sur Le disque en Lui 
donnant La valeur 11. 


e La tête de Lecture trouve en début de 
piste Les informations dont elle à besoin et en 
particulier Le numéro de La piste où elle se trouve. Si 
c'est La piste cherchée elle doit reprendre La Lecture au 
début, et donc faire un tour pour rien ! Avec Le facteur 
11 Le numéro de piste est écrit sur Le 1ème secteur 


Avec Le facteur 1, 


(dégénéré) et La Lecture de La piste Suivante peut 
commencer immédiatement... | 
Ces explications théoriques sont Les seules dont je 


dispose, mais elles ne me satisfont pas pleinement ! 
Néammoins, on constate expérimentalement qu'un fichier 
Long enregistré d'un Seul tenant sur des pistes 
consécutives est écrit et Lu jusqu'à deux fais plus vite. 
Si le mème fichier est morcelé (cas d'un ARR 
sur une disquette où des fichiers éffacés ont (aissé des 
“trous”) Le gain peut être sn Lu .…, J'ai bien sûr 


i fl 
gyseu RE qua ne Ted EUREERE" | 
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€) Formatage. 


Deux tampons sont nécessaires: un qui commence à L'adresse 
(32 bits)pointée par La variable form buff et qui doit 
avoir une Dis de 8 ko minimum, et uñ qui COMMERCE à 
L'adresse (32 bits) pointée par fat_buff de capacité min. 
#h00:5 + 512 octets. 


Dans Le pr La fonction FLOPUR prépare Le formatage 
d'une piste complète (données + HE et dans Le second 
nous construirons un prototype de La FAT (5 secteurs de 512 
octets). J'ai porté La capacité du premier tampon à 9 ko 
AL pouvoir y stocker La totalité des 18 premiers 
secteurs. 


d'une face est effectué par Le mot FORMAT SIDE 
La fonction FMT_TRACK est appelée pour chaque 
piste et retourne sur La pile-un 16-bits qui vaut 0 si tout 
s'est bien passé, où un nombre compris entre -1 et -17 
suivant Le Die d'erreur survenu. Ce nombre est récupéré 
pe Le mot ERROR DERL pour traitement: soit affichage d'une 
gite d'alerte Evolet de protection fermé, absence de 
disque etc.) soit repérage d'un secteur défectueux 51 Le 
nombre retourné est -16 C$FFF0). 


Le mot FMT_TRACK remplit Les secteurs de données avec des 
octets $E5 = 4111001071. Les 0 et 1 sont He de manière 
suffisamment irrégulière pour que cette valeur constitue un 
bon test de La qualité d'un secteur. 


Le formatage 
(écran 14). 


La fonction FLOPWR relit Le secteur et si un bit n'est pas 
ALIEN correctement elle retourne La valeur -16 et 
écrit au début du tampon fmt_buff Les numéros des secteurs 
défectueux de La piste. Exemple: Si Les secteurs 1, 2 et 6 
sont défectueux Le début du tampon contiendra Les octets: 


00 01 00 02 00 06 00 00 4N 4N 4N 4N 


Le mot BAD CLUSTER enregistre ces informations Sur Le 
tampon fat_büff d'où elles seront reportées sur La FAT afin 
que ces secteurs ne soient pas utilisés par La suite. 


D) Structure de ta FAT. 


Chaque groupe de 2 secteurs consécutifs constitue une 
entité nommée CLUSTER qui contient donc 10240ctets. La FAT 
contient Les informations utiles sur tous Les clusters du 
disque, codées SUR 12 BITS soit 3 chiffres en 
hexadécimal!!! 


cluster disponible, 
dernier cluster d'un fichier, 
cluster défectueux, 


$000 signifie 
SFFF signifie 
4FF7 signifie 


et tout nombre compris entre 8002 et SFFB indique Le numéro 
du cluster où se trouve La suite du fichier. Penser qu'un 
fichier n'est pas nécessairement enregistré sur des 
clusters consécutifs: au contraire on boüche Les ‘trous" 
Laissés disponibles par Les fichiers éffacés... 


Les 3 premiers octets de La FAT doivent contenir au départ 
Les valeurs S$F7 $FF $FF. Le reste de La FAT est découpé en 
groupes de G3octets, chaque que contenant Les 
informations sur 2 clusters consécutifs (3 octets = 24 bits 
= 2 fois 12 bits !). Le décodage d'un Joe de 3 octets 5e 
fait de La manière suivante; exemple de début d'une FAT: 

F7 FF FF puis 

09 40 00 : 05 60 00 : 09 70 FF : F7 AF 00 à 0B FO FF 


Soit Le ‘er groupe: On prend Le 4ème chiffre hexa (0), on 
Le fait passer devant Le ter, et on fait passer Le 3ème (4) 
derrière Le dernier et 03 40 00 devient 003 004 ! Le îer 
cluster UTILISABLE est numératé 002 et non 001 (?) et c'est 
en fait Le 19ème cluster HE Les 18 premiers sont 
occupés par Le boot-sector, Les FATS et Le répertoire. 


Dans notre exemple Le 12 bits représentant ce cluster 
contient La valeur 003, ce que signifie que La suite du 
fichier commencé au cluster 2 5e trouve au cluster 3 (le 
suivant). Le 42 bits représentant Le cluster 3 contient 
004, La suite du fichier est donc dans Le cluster 4 et 
ainsi de suite... 
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Décodons Les groupes suivants: 
2ème groupe 05 60 00 donne 005 006 pas de problème, 


3ème groupe 09 70 FF donne 009 FF7 ah tiens! 
4ème groupe F7 AF 00 donne FF7 00 
5ème groupe 0B FO FF donne 00B FFF 


Le fichier est donc Ave sur Les clusters 2, 3, à 

5, 6,9, 10, 11et c'est tout puisque Le cluster 11 est 
désigné par FFFifin de fichier). Les clusters 7 et 8 sont 
défectueux et Le système n'y à donc rien enregistré... 


1 faut savoir enfin trouver guet est Le premier cluster 
occupé par un fichier: c'est Le répertoire principal qui 
Le donne. Il contient Les noms de tous Les fichiers et 
dossiers présents Sur Le disque et divers informations Les 
concernant (date et heure de mise jour, taille etc.) 
dont Le numéro du der cluster occupé par Le fichier 
(offset $1A, numéro sur deux octets cette fois 1). On 
aurait trouvé $0002 dans L'exemple ci-dessus. 


On dispose ainsi Dis à La FAT et au répertoire 
principat d'une fable des matière complète de La 
disquette. 


Remarques (cyniques) : 


Le découpage en clusters et Le codage sur 12 bits 
sont malcommodes mais justifiés (?) par te gain de place 
obtenu: une disquette comporte au maxinum 2 faces de 80 
pistes et 10 secteurs par pistes soit 800 clusters. Leur 
codage sur 8 bits est impossible mais sur 12 ça marche! 
Ainsi La FAT tient sur 1200 octets soit moins de 3 
secteurs. Si on avait codé Les clusters sur 16 bits, elle 
aurait occupé au maximum 1600 octets soit moins de 4 
secteurs, et de toute manière Atari réserve 5 secteurs 
pour chaque FAT, pour des applications futures??? 


2) Le formateur en ROM accessible par Le bureau GEM 
inscrit des $FFF pour Les clusters défectueux et non des 
#FF7 comme L'affirment Les documentations, allez savoir 
pourquoi ... 


Si une erreur -16 5e produit,le mot BAD CLUSTER Lit Le 
début du tampon de formatage jusqu'à rencüntrer La valeur 
o et inscrit $FF7 (sous La forme F7 F_ ou 7_FF Selon Le 
cas!} à L'endroit voulu: Le numéro du DPOUPE de 3 octets 
concerné (1 pour Le 1er cluster utilisable) est donné par 
{a formule: CC N'piste +* Nbre-de secteurs/pistes + 
N'secteur-déf, -19 )/ 4 + 1). ie LE La division 
euclidienne cote entier). Si un des 18 one 
secteurs est défectueux La disquette est inutilisable, une 
boite d'alerte Le signale, 


E) Structure du boot-sector. 


La fonction X810S PROTOBOOT crée une image du boot-sector 
standard (fou 2 faces mais seulement 3 secteurs par 
piste). Si on Lui fournit un nombre de 32 bits supérieur à 
SFFFFFF elle génère automatiquement un nombre aléatoire de 
24 bits qui sert de N° de série et permet de détecter Les 
changements de disquette. 


AUTRE formate en 10 secteurs pee piste, il y a Lieu de 
modifier Les nombres NSECTS nombre total de Secteurs du 
disque, offset $13) et Le nombre SPT (nombre de secteurs 
par piste, offset 516). 


La structure A de boot-sector est décrite dans Les 
Clés pour ATARI ST p. 182, et dans Le Livre du lecteur de 
disquettes p. 44. 


\\ FORMATAGES DIVERS 


06 88 

 QFORMAT propose diverses options de formatage: 
simple/double face, 9 ou 10 secteurs par pistes, format 
Atari ou MS/005 (les disquettes ainsi formatées sont 
SHIRTS es in sr ou Sur Les 
onpatible choix cteur - . 
Hi) trMErléntt) ne Facteur A UUTT 1 mais Le 
choix d'une autre valeur (11 ou 6 par exemple) permet sur 


0F 06 


certains Lecteurs d'accélérer notablement Les opérations de Ecran 5: 
Lecture et d'écriture Sur disquette. Le résultat est | Format. d'1 piste (Laddr -) tampon 8 KO min) DF 06 08 88 
} 


variable Selon Les modèles, il convient de faire des Code fmt track € Laddr disk track side --- n 


essais: tire et écrire un fichier assez Long (> 100 ko) sur M SESES # A7 -) move | octet de remplissage 
une disquette ue afin que Le fichier soit sur des LU $87654321, # A7 -) move | Nombre "magique" 
pistes consécutives de La disquette. M OL R#) A7 -) move | Facteur d'entrelacenent 
| 5P )+ A7 -) move | N° face (0 où 1) pris sur pile 
L'opération de formatage prend environ 50 Secondes par SP }+ A7 -) move À N° prets à 79} pris sur pile 
face, comme Le formatage Standard (entrelacement=1) du tsect R#) A7 -) move | Nonbre de secteurs par piste 
desktop. SP )+ A7 -) move | N° disk(R=0,6:1) pris sur pie 
LU 0. #8 A7 -1 move | val. bidon mais indispensable! 
Ecran 1: SP }+ A7 -) move | Laddr du tampon que sur pile 
Salyforth \ Ecran de chargement OF 07 08 88 M SA A7 -) move | appel de La fonction FLOPFMT 
\needs »Label 2 Loadfrom assemble ser {E trap 1 (N°10) du XBI0S 
ineeds case include case of.5cr Sin # 07 adda | restauration de La pile A7 
needs Lfill include AUTRES D0 SP -) move 1 N° d'erreur (16b.(0) ou 0 
\needs gem inctude gemibasics.scr sext end-code 
Ontyforth je also definitions 
\needs objc_draw 813 Loadfrom gemlaes.scr Ecran 6: 
\needs form 00 417 loadfrom gemlaes.scr \ Construction *B00T-SECTOR" standard (9 sect.)DF 06 08 86 
Ineeds rsrc Load" 834 Loadfron gemtaes.scr \ A L'appel de PROTOBOOT Le tampon commencant à Laddr doit 
needs treel include gem\süpergem.scr \ contenir un sect. "préformaté" (fabriqué par FMT TRACK). 
\needs mofaddr 2variable mofaddr 0. mofadér 2! . 
: graf_ mouse € n -- ) Code protobogt ( Laddr n ---) | crée 1 image boot-sector 
intin ! mofaddr 2@ addrin 2! 878 1 1 1 RES NON A7 -) move | pas de pro. éxécut. Sur boot-sector 
= abort" Graphic error ‘ ; SP }+ A7 -) move | simple (n:2) ou double (n:3) face 
cr 2 415 thru | .L $1000000. # A7 -} move 1 N° série aléat. sur 24 bits 
Ù 416 Load { Pour installation en .PRG ) 5P )+ A7 -) move | Laddr d'un tampon de 512 oct. min. 
\ #17 Load € Pour installation en .ACC ) .W 412 # A7 -) move | appel de La fonction PROTOROOT 
$E af \ du XBIOS : 
Ecran 2: 7 $E # A7 adda \ restauration de La pile 
À 1e etes du fichier QFORMAT.H DF 06 08 68 next end-code 
0 )label :opt 5 label :A 4 label :B 
7 label :df 8 label :5f 412 label :std 
3 label :0k 410 Label :n0 413 )Label :105 1 Pour 1 format, non-standard (10 sect/piste) Le protot. 


411 label :5ect 416 Label :ata 817 »label :ibm de boot-sector ainsi créé doit être modifié (cf écran 13) 
818 >Label :ilv 820 >Label :il1 421 Dabel :fact 

422 »label :name 
1 label :wait 


2 label :free 


2 label :rect1 3 label :ha 

4 label :rect? 5 label :hach? 
5 :f1 6 label :f2 

4 label :disp 


\ Boites d'alerte 
0 )Label :hs 1 label qui 2 label :nodk 


3  )label :div 4 label :lec 

Ecran 3: | 
variable ibm variable il \ DF 06 08 88 
variable track variable disk variable Fsect 
variable dble variable side variable :h 
variable bs1 variable b52 variable bc 


variable fat_buff variable form buff 
Create empty$ 3c,bc,bc,bto, 


: memalloc { --- ) \ réservation mémoire 

$A00. malloc fat buff 2! 852400. matloc form buff 2! ; 
: Settings U --- ) memalloc rsrc Load' gformat:rsc" ; 
: clexit (--- 7) \ pour sortir proprement ... 
fat_buff 26 mfree form buff 28 mfree rsre free grexit : 


: Df OC objNr --- flag) | ft2t si radiobutton select 0 sinon 
state _gaddr LE ; 


Ecran 4 
\ Ecriture d'une piste (Fanction XBI0S 9) OF 06 02 88 
Code Curite_track { Laddr disk 1st track side #sect --- n ) 
W SP + A7 -) move \ Nbre de secteurs à écrire 
SP )+ A7 -) move \N° face (9 ou 1) Lnmdia Ransa 
SP )+ A7 -) move \N° de piste (0 à79)à écrire L vd 4 | 
SP }+ A7 -) move \ N° 1er secteur à écrire ï 
CP )+ A7 -) move N° du disque (A=0,B=1) Ecran 7: L | 
.U 0. # 87 -) move | Valeur bidon (utilisation future) \ Gestion des boites de dialogue et d'erreur DF 20 01 88 
.U SP )+ A7 -} move \ Adresse (32bits) du tampon \-Btes dialogue: boxf = N°Llabel) de La boite, field#= 
.WS 4 A7 -) move \ Appel fonction FLOPWR (N‘9) 1 N° du ‘er Champ texte bditable ou -1 s'il n'y en à pas . 
S0E trap \ du XBIOS . : 
$14 # A7 adda \ Restauration de La pile A7 : dialog € fieldf box# --- bouton ) 
on dés il UN° d'erreur(16bit(0) où 0 si OK AS curort LS 
NEX “Code | . orm_da dup deselect hide object curon  ; 
: Wwrite_track € Laddr disk track side --- n } | Ecr, piste # | es 1 | 
1 -rêt sect @ (vrite_ track ; \ complète : Show_info { --- ) :vait tree! curoff hide c € show objc) 
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init object big 4@ scromemt 1 Little 40 big 4@ form dial 


0 1 Big 4@ objc_drau show € ; À HALL mais profond. 1 
‘hide info (-=- ) wait tree! hide object Curon ; 


: prep_ info € --- x y } À retourne coordon. du coin haut 
Wait tree! side b l ae du EU Le à hachurer 
LE <hach? ch ! ELSE shacht sh ! THEN :h @ objc_ offset ; 

Ecran 8: . 

\ Gestion de La boite OPTIONS DE FORMATAGE OF 06 08 86 


: disable ( ms -- ) | déselect. et met en grisé un objet 
91000 swap state gaddr L! ; 

: enable ne - ) 1 permet sélection ultér. d'un ab). 
state gaddr 2dup L@ 4110111 and -rot \Ll ; 

: objcredraw € obj# -- ) | redessine un ques modifié 
3 over objc offset 3 pick objc_getwh objc draw ; 


. store options { -- )  \'initialise variables de choix 
1e reel :8>f disk ! :df »f dble ! 
«Std ?{ IF 9 ELSE 810 THEN #sect ! 
‘lt ) «fact getnumber drop il! 
LT of IF 1 ELSE sfact getnumber drop THEN il | 
sata of IF ibm off ELSE ibm on THEN ; 


Ecran 9: 
\ Gestion de boite OPTIONS DE FORMATAGE (fin) DF 15 09 88 
: aptions_choice { -- flag ) À fl vrai si format. demandé 
ue tréel curoff hide_c show object 
BEGIN :name form do CASE | : 
105 OF :ilt select”:fact disable :ilv objc redraw 0 ENDOF 
:std 0F :fact enable | silv objc-redraw 0 ENDOF 
“ibm OF sil select :fact disable :ilv LR 


«name disable : name o0bjc_redraw 
«std select :105 disable :sect objCc_redraw 0 ENDOF 
sata OF :fact enable :ilv objc redraw 
:name enable :name 0bjc_redraw 
:105 enable .sect objc_redraw 0 ENDOF 


-0k OF store options 
ok déselect hide object curon -1 -1 ENDOF 
no OF :no deselect hide object curon 0 -1 ENDOF 
ENDCASE UNTIL” ; 


Ecran 10: 
\ Inscript. des secteurs défectueux sur La FAT DF 06 08 88 


: fat init (€ ---) À préparation du buffer de FAT 
fat_buff 28 Fu $Ao0 Oo Lfill 
8F7 ibm @ IF dble @ 1+ + THEN 
SFFFF over 1. dt LI -rat Le! ; 


. Afatt Cu --- ) \ écriture de F7 F _ dans fat buff 
o fat buff 2@ d+ 2dup 2dup LCR U5 IF 1 bc +! THEN 
se7 -rot cl 1. d# 2dup Lc@ $0F OR -rot Lc! ; 

. 2fatl Cu --- ) \écriture de _ 7. FF dans fat _buff 
10 fat buff 20 d+ Aus ALL 
1. dt Odup Le 07 IF 1 bc +! 


ü 


HEN SFF -rot Le! ; 


Ecran 11: 


Repérage des secteurs défectueux DF 13 02 88 


: bad cluster € --- :hs O ou 1) 
track @ dup 0= EL dble @ 1+ = OR 
IF hs 0 ELSE form buff 2 
BEGIN 2dup L@ 


WHILE 2dup 1. dt Le® track @ #sect @ x + 819 - 4 Imod 1+ 


3# swap 1- 0) IF 2fatl ELSE 1fatl THEN 
1 side @ IF b52 +! ELSE bs1 +! THEN 2. d+ 
REPEAT 2drop 1 THEN ; 


\\ Pour, visualiser Les N° des secteurs défectueux til 
s'inscrivent dans form buff), ajouter Le mot view bad dans 


error deal nt avant Bad cluster (écran 10) 

« vien bad € --- ) 1 Ldümp est défini dans tools.scr ! 
cr ." Piste : " track @. 
form buff 2@ 920 Ldump cr key drop ; 


Ecran 12: 
\ Gestion des erreurs DF 06 08 BG 
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Tc@ #70 OR -rot lc! 


: error deal { n --- } 
mul IF CASE S$FFFO O@F bad cluster IF exit THEN 


tFFF3 OF  :prot 


ENDOF 

SFFFD OF :lect 
EN0OF 

SFFFA OF  :nadk 
ENDOF 

tFFEF OF :nodk 
ENDOF 


._. téiv swap ENDCASE 
hide info curoff alert abort THEN ; 


\1 Dans Le mot vectorisé 'ABORT qui est exécuté dans ABDRT 
on placera Le CFA du mot qui relancera Le formatage au 


ut: 
QEORMAT par exemple .... (cf écrans 15, 16 et 17). Le mot 
UIT executé ensuite Cdans ABORT) empêchera Le formatage 


e 
recommencer au niveau de L'erreur | 


Ecran 13: | | 
! Construction des 2 premières pistes (face 1) DF 15 09 


: create boot { --- ) À créat. "boot-sector* sur form buff 
form büff 2@ dble @ 2+ protoboot fsect @ SA = 
IF fürm buff 20 9513. dé SA 952003 dble @ 1+ »# 2over LI 
-rot 85. dé Le! THEN 1 modifications si 10 sect.Ipiste 
ibm @ IF $55AA form buff 2@ S1FE. dt (! 
; form buff 2@ #16. d+ Le! THEN ; 

create fat € --- J | créat. des 2 FATS#REP. sur 

\ form buff 
form buff 28 fat buff 2@ 2over 2over 2over ibm & 

qu A de 96007 Lcmove 5800. d+ 8600 Lemove | 2FATS 
Sec 


$E00. dt $E00 0 Lfill À NAIL (sect) 
ELSE 5200. dt $A00 Lemove $C00. d+ SA00 Lcmove 
cn d+ 2dup $E00 0 Lfitl \ répertoire 
sec 


«opt treel :name text gaddr au Lc@ À nom éventuel du 
ir 2over $B Lenove S0B -rot 8h. dt Le! | disque 
ELSE 2drap 2drap THEN THEN ; 
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Ecran 4: 

\ Formatage d'une face OF 06 08 8û 

: format Side { -- ) \ formatage des pistes 73 à 0 
rep info 879 dble @ IF 2# side @ + THEN track ! 80 0 


0 :F@1 2over I + 2x cheight Lis dray 


form buff 2@ disk @ 479 1 - side @ fnt rack error_deal 
“dbte @ 1+ negate track +!  LODP 2drop :; | 
« write fat € --- ) 1 écrit. BOOT, FATS, REP. sur disque 
form Buff 26 disk @ O0 O0 write track error deal 
form_büff 2e s1200 #sect @ SA = “IF $200 + THEN O0 + 
disk @ ? 1 O0 dble @ IF swap THEN  B18 tsect & - 
{write track error 


j deal ; 
LALER Aquaree D'AEEPRERUUSS JE réttIee 
« SétMFOB € ar” -- ) Dr 0 q_extend intout de r@ 4+ 2! 


intout @ $10 / r@ 6 + ! 1 qextend intout 
E+tRr)au+tl!; 


: rastmenset  {-- ) menMFDBt setMFDB ; 

Ecran 15: 

À FopRetne L du disque | OF 15 05 88 
Qforma --- ) base push decimal 0 grat mouse 


rastmenset BEGIN options choice 
MHILE side off track off bs1 off bs2 off bc off 

2 graf mouse show info fat init format side 

de @ IF 1 side T format Side THEN 
create boot create fat write fat hide info 
Q graf mouse :free tree! bs1@ 0 :f1 LEE 
ble U IF bs2 @ O0 :f2 putnumber ELSE emptys :f2 
&4Q fsect @ s dble @ 1+ + 
m @ IF 9 ELSE $B THEN - 
C@ - $400 unx :disp putnunber 

-1 :free dialog drop 

REPEAT curoff Show c ; 


DHSIEES THEN 


"qforaat 15 ‘abort 
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Ecran 16: F3 
\ Installation en QFORMAT.PRE : UF 07 06 86 


\ Compiter écrans 1 à 416 inclus UHR Le | devant 
\ 816 Load à L'écran 1} à partir de FORTHKER.PRG par : 
\ include gformat.scr 

: fanish © --- ) gformat clexit bye : 


: T'un {--- ) grinit settings finish : 


finish 15 ‘abort 


run 15 ‘cold 
savesystem QFORMAT.PRG 


Ecran 17: 

\ Installation en QFORMAT.ACC : OF 07 08 88 
\ Compiler Les écrans 1 à 415 ci-dessus puis L'écran 417 

À RE TEr di Le | devant 817 Load à écran 1) à partir de 
\ FORTHKER.PRG par : include QFORMAT.SCR 


: PSPCS { --- addr } | réservat. mém. et nom ‘ressource 
memalloc 0" qformat.rsc" ; 


: titles { --- addr ) 1 titre de l'access. pour Le menu. 
0° Qformat" ; | 2 blancs devant titre pour alignement. 


‘gformat aàlias run 
include save acc.scr 
*runacc 15 ‘abort 
saveacc QFORMAT.ACC 


EOF 
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MOGITICATIONE PVENTUSL(ES SUT ua seul fichier. 
SION generee contient PA Stangert tf015 
TURBO ge mOduLE !: 

“ gption ComS2L.conditionnelLe 


Chaque ver- 
At CE DiUS QUE 


EXIST rechercne existence de mot 

FRENCH QraDeau LinGulst.version fran. 
ENGLISH  * * ‘angl. 
GERMAN d ' ° atlen. 


Le programme MÉTA.FTH à ete modifie de maniere a fpnction- 
ner de La meme maniere sur TURBO M1 que TURBO etendu. Cna- 
QUE Version META-COMDILEE dLS00Se de Son propre identifi- 
Cateur Linguistique (FRENCH. GERMAN, ENGLISH), La presence 
d'un identificateur est analvsee par EXIST?: Exemple: 

: CHOIX (€ --- fl) | 

EXIST? FRENCH ?1 .* choix QI: * 

EXIST? ENGLISH ?1 ." chgice YIN: " 

EXEST GERMAR 71, Wal JIN: 

KEY 


EXIST? FRENCH ?1 ASCII © = 

EXIST® ENGLISH ?1 ASCII Y : 

EXIST? GERMAN  ?\ ASCII d = 

IF TRUE ELSE FALSE THEN : 
Cette ontion geut tres facilement etre agantee à d'autres 
Langues etrangeres (espagnol. italien, neerLandais, breton. 
verlan, etc...). Mais elle permet Surtout Dour Le moment de 
Creer Un SeuL programme oui soit trilingue. Chaque version 
(trancais. atiem., anglais,..,) conpilera exclusivement Les 
portions de texte ou de routines Le concernant. À L'execy- 
f10n et à La decompilation, exemgle avec La version anglai- 
se. Le mot CHOIX se ira comme s'il avait ete defini par: 

: CHOIX 

KEY ASCIT 1: 

IF TRUE ELSE FALSE THEN : 
Alors Si apres ca on ne dit pës oue IUR8O s'ouvre à L'Eure- 
De. 1e m'exite au GUATEMALA, car 115 ont encore de L'espoir 
de Sortir de Leur Sous- developpement... sans blague! 
LAMBERTPH Ou 15.08.88 A 20h34 
URGENT ---  INCLURE LA PROGRAMMATION DRIENTEE OBJET TELLE 
QUE PRESENTEE PAR M PETREMANN (JED] 45) DANS LE NOYAU DE 
TURBO-FORTH POUR METAGENERATION --- QU'ELLES SONT LES MO- 
OIFS À APPORTER AU METAGENERATEUR POUR QU'IL PRENNE EN CDM- 
PTE DES MOTS DE DEFINITION N'EXISTANT PAS DANS LE NOYOU 
D'ORIGINE ET ACCEPTE LES MOTS CRÉES A L'AIDE DE CEUX-CI 
PLUS GENERALEMENT QUI POURRAIT M'EXPLIQUER PAR LE MENU LE 
FONCTIONNEMENT DU META-GENERATEUR 
PHILIPPE LAMBERT - VELIZY 78 - TEL 39 46 14 49 POUR UNE 
REPONSE RAPIDE MERCI 
SECRETAIRE Du 16.09.88 À 12h55 
PERFORMANCES OU META-COMPILATEUR fourni dans Le modute 5 de 
TURBG-Forth. On a dit que Le comoilateur de TURBO-Forth CE 
Lent. beaucoup Dius que celui de TURBO-Pascal ou €. Mais 
TUR8O-Forth est un anterpreteur/comcilateur. Ensuite, Le 
Code dengre est Le pius Compact qui soit. Pour preuve, voi- 
C1 0eS exempies d'UNE meme routine comoilee en divers tan- 
gages et leurs compilateurs a550cies. 


gsearte en € /S 
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texte du précédent article. 


FORMATAGE SUR ATARI 5T 
par Daniel FLIPO 


Système: VOLkSFORTH-83 


L'objet de cet article est de Je un programme de 
formatage sous GEM. Outre L'intérêt pratique du programe, 
qui autorise un Large choix de formats (9 ou 10 secteurs 
par piste, choix du facteur d'entrelacement, format ATARI 
ou M5/00$ ... ), Les boites de dialogue RTS Le 
Lorie me paraissent bien illustrer Les possibilités du 
EM dans ce domaine, qu vont bien au-delà de ce que permet 
Le mot DIALOG présenté dans DEMOGEM.SCR (JEDI N°43). 


Enfin Les écrans 16 et 17 indiquent comment transformer Le 


mot FORTH QFORMAT, soit en programme .PRG (à double- 
cliquer) soit en accessoire (dans ce cas Le fichier 
SAVERE . CR ct présent numéro est nécessaire). 


1) Ce que fait Le mot QFORMAT. 


Al propose de formater une disquette Simple ou doubLe 
ace, présente Sur Le Lecteur À ou 8, en ÿ ou 10 secteurs 
par piste et 40 pistes par face. Le choix {standard) de 9 
secteurs donne une capacité de 720 ko environ en double 
face contre 800 ko pour 10 secteurs. 


Le choix entre Le RIRE standard ATARI ou MS/00S est 
pRqosé is AARttes obtenues avec L'option MS/D0S sont 
utilisables indifféremment sur ATARI ou sur compatible IBM. 
A retenir par ceux qui voudraient envoyer Leurs textes sur 
disquette au secrétaire: il est équipé pour Lire Les 
disquettes 3 pouces et demi double face 720 ko... mais at 
format M5/006. 


js différences entre Les deux formats Sont expostes au 


one donne également Le choix du facteur d’entrelacement 
interleave en anglais.). Sa valeur détermine normalement 
L'ordre dans Ne Les secteurs du disque Sont Lus et 
écrits. Sur L'ATARI, il semble Le son rôle sait un peu 
différent: La valeur standard est 1, ce qui A THE que 
Les tops de Res de piste sont “sur (en fait juste 
avant) Le er secteur de chague piste. En effet en plus des 
données, une disquette contient des informations 5y5tême 
(ID, 60P..) mises en place par Le formatage entre {es 
secteurs de données. 


Sur chaque us Line Die que 10 secteurs et un petit 
bout de 1tème inutilisable, Le choix de La valeur 11 pour 
Le facteur d'entrelacement place Les tops. de changement de 
pois ‘sur Le fîême Secteur, ce qui évite à la tête de 
ecture de faire un tour pour rien à chaque changement de 

piste: en effet, NUE ces informations sont en tête de 
ps La tête de Lecture refait un tour complet avant de 
ire Le premier secteur! 


Pour un formatage en 9 secteurs ee piste ceci permet de 
diviser Le temps de Lecture/écriture par 1,5 environ. On 
entend d'ailleurs trés nettement à l'oreille 
coaenE de La tête de Lecture est plus rapide. 
Attention, ceci n'est vrai de pour Les fichiers Longs 
enregistrés d'un seul bloc sur des pistes consécutives, pas 
pour Les fichiers morcetès pour boucher Les “trous' laissés 
par des fichiers effacés. 


que Le 


Pour un formatage en 10 secteurs par pistes, On ne LE 
rien à choisir un facteur d'entrelacement différent e 1. 
IL semble que Le Lecteur ne parvienne pas à Lire d'affilée 
Le 10ème secteur, Les informations de changement de piste 
et Le ‘er secteur de La piste suivante. Le programme 


verrouitle d'ailleurs ce choix (voir If-1). 


La modification du facteur d'entrelacement est SANS AUCUNE 
CONSEQUENCE sur La sécurité des données ; en particulier La 
fonction de vérification n'est pas supprimée. 


QFORMAT Foqere \es ÉVenCURRE Secteurs défectueux, gl 
enregistre Leur place sur La F.A.T. afin qu'aucune dünnÉe 
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être placée ultérieurement, ce qui est 
gt malheureusement omis par bon nombre de 
( formatage en circulation! La boite 
d'information finale indique Le nombre d'octets 
disponibles sur Le disque et Le nombre de secteurs 
défectueux sur chaque face. 


ne puisse } 
INDISPENSABL 
programmes de 


Sur Les aspects techniques du RACE {notions de 
“HSE défectueux, de boot-sector, de F.A.T.) on pourra 
consulter: 


: RUE du Lecteur de disquette MICRO APPLICATIONS 


- Les articles de ae Guillemé sur "La gestion 
des disquettes" dans Les N°13 à 16 de GT-HAGÉLINE. 


ATTENTION : 


4) Le mot QFORMAT ne doit être exécuté qu'après avoir 
initialisé Le GEM par Le mot GRINIT, puis chargé Le 
fichier ressources QFORMAT.RSC et réservé La mémoire 
nécessaire par Le mot SETTINGS. Le fichier de ressources 
QFORMAT.RSC doit être présent sur La disquette et pas à 
L'intérieur d'un dossier. 


2) Cliquer sur FORMATER dans La premiére boite de 
dialogue Lance Le formatage imnédiatement; assurez VOUS 
1e La disquette à formater est bien dans Le bon Lecteur! 

Liquer sur ANNULER fait sortir du programme. mire tout, 
qu Les distraits, j'ai choisi de commencer Le formatage 

partir de La dernière piste € de 73 à 0 ) pour ne 
détruire qu'en dernier Lieu Les informations vitales 
contenues sur Les pistes 0 et 1 (Boot-sector et F.A.T.). 
On peut ainsi sauver La nise en coupant tout assez viteli! 


IL) Fonctionnenent des trais boîtes de dialogue. 


Les caractéristiques des 3 boîtes illustrant Le source 
sont incluses dans Le fichier de ressources QFORMAT.RSC 
qui doit être crée à partir d'un programme de construction 
e ressources (RES de Digital Research, ou K-RESSOURCES). 


1-1) Boîte de choix 
(voir figure 1) 


Les rectangles "DISQUE A°, "OISQUE B' etc. sont des objets 
GEM du DR BUTTON, avec Les attributs SELECTABLE (rend 
possible L'affichage en inverse vidéo), RADIO-BUTTON 
{bascute entre choix LL s'excluent mutuellement) et 
éventuellement PRESELECT pour Ceux qui apparaissent en 
inverse vidéo au départ. 


Chaque couple de boutons disque À ou 8, sinple ou double 
face, etc doit être inclus dans une boite invisible du 
type IBOX (Largeur du bord = 0) afin que La sélection de 
“disque A" par exemple ne désélectionne que "disque 8" et 
pas Les autres boutons! 


Les choix à faire ne sont pis toujours AE Les 
uns des autres. On peut souhaiter interdire La sélection 
d'un bouton 51 telle option a été choisie. Exemple: pour 
formater au standard M5/005 il faut interdire L'option 10 
secteurs par pistes ainsi que Le choix d'un facteur 
d'entrelacement autre que 1. 


Pour cela il faut ajouter L'attribut EXIT au bouton MS/D0$ 
(c'est ce qui fait que son cadre est un peu plus aus que 
celui des autres...). Ainsi on sortira de La boite de 
dialogue tors de La sélection de MS/D0S et c'est Le 
programme qui devra ajouter L'attribut DISABLE aux boutons 

10 secteurs" et "facteur: *, selectionner Les boutons 
nets “standard' et réafficher Les 4 boutons 
modifiés. Les boutons ‘“standard" apparaîtront alors en 
inverse vidéo, et Les deux autres en grisé Comme sur Là 
figure ci-dessus, 


L'élément “Facteur : “n'est FE à proprement pen du 
pee BUTTON mais du type EDIT (texte bditable). Ses 
attributs sont SELECTABLE, RADIO BUTTON et EDITABLE. C'est 


ce qui gernet à SL'ytitisateur feRnlGEr au CHAN AET Une 


Les touches ESCAPE ou BACKSPACE pour effacer La valeur 
existante. 


L'élément ‘Nom du disque : * est également du type EDIT 
avec pour Seul attribut EDITABLE. Le nom entré au clavier 
Sera dnscrit sur Le disque en tête du Ie principal 
suivi de L'octet 08 pour indiquer qu'il s'agit du nom du 
disque et pas d'un nom de fichier (cf Les deux dernières 
Lignes du mot CREATE FAT, écran 14). 


*Formater" et "Annuler" sont des objets du type BUTTON avec 
Les attributs SELECTABLE, EXIT, et en Es DEFAULT pour 
“Annuler" ; ainsi La frapge Sur La touche RETURN à Le même 
effet qu'un clic sur "Annuler". 


IL est maintenant facile de Us: Le fonctionnement du 
mot OPTIONS CHOICE (cf. écran 8) qui gère cette boîte : Le 
mot FORM O0 attend que l'utilisateur clique sur un bouton 
EXIT, La boite devient alors inactive, mais, si c'est une 
fausse sortie justifiée par une modification de Nntrenee 
de La boîte, on reste dans La boucle BEGIN ... UNTIL, on 
modifie L'affichage, puis on réactive La boîte par un 
nouveau FORM DO. 


La constante :name qui est sur La pile à L'appel de FORM DO 
indique au 6EM que Le curseur texte doit 5e trouver sur 
LE “Nom du disque : ". Pour Le faire passer d'un 
objet de type EDIT à l'autre on utilise Les flèches de 
déplacement haut et bas. 


Le mot STORE OPTIONS reporte Les choix faits sur La boite 
de dialogue dans Les variables ad hoc, La valeur 
éventuellement entrée au clavier comne facteur 
d'entrelacement est récupèrée par Le mot GETNUMBER de 
SUPERGEM. SCR. 


I1-2) Boite N°2 : évolution du formatage. 
(voir figure 2) 


Bu für et à ù 
déplace vers La droite comme Lors 
du bureau GEM. 


Comment réaliser cela? C'est simple: La boite contient sous 
Les mots "Face 1" et ‘Face 2" deux boîtes du type BOX dont 
L'intérieur est blanc qui elles-mêmes contiennent une boite 
hachurée de mêmes dimensions. Tout ques GEN contenu dans 
un autre est pe son fils. Au départ on ne fait afficher 
que L'objet pére Crectangle blanc) en 


mesure du MrAAUE La barre hachurée 5e 
‘un formatage à partir 


L limitant La 

profondeur d'affichage* à 1, voir Le mot SHOW INFO écran 
7, En choisissant une profondeur 2 on afficherait L'objet 
pre et ses fils mais pas Les petits-fils et ainsi de 
suite. 


Ensuite au cours du formatage (cf 4ême Ligne du mot 
FORMAT SIDE écran 14) on affiche une ue seulement des 
rectangles hachurés grâce au mot OBJC DRAM qui demande Les 
coordonnées (x, y, W, h) de La zone” autorisée d'affichage 
{clipping zone). 


Le mot HIDE INFO fait effacer La 


A La fin du Dale E 
restaure l'arrière plan sauvegardé par 


boîte de dialogue € 


11-33 Boite N° 3 : 


(voir figure 3) 


compte rendu du formatage. 


C'est une boîte de dialogue simple gérée par Le mot DIALO6 
ET fonctionnement à êté décrit dans DEMOGEM.SCR (JEDI 


Les nombres d'octets Libres et de secteurs défectueux sont 
installés dans La boite par Les mots PUTNUMBER et PUTSTRINGE 
définis dans SUPERGEM.SCR. 


Différences entre Les formats ATARI et MS/006 (version 


- Le premier octet de chacune des 2 F.8.T. vaut $F7 sur 


Suite 


ATARI, contre $F8 pour une disquette simple face 80 pistes 
(360 ko) ou $FS pour une double-face 40 pistes (720 foi. 


- Chaque F.A.T. occupe 5 secteurs sur ATARI (secteurs 1 
à 5 et 6 à 10) contre 3 sous M5/D0S (secteurs 1 à 3 et 4 
à 6). Le répertoire principal, qu suit La 2ème F.A.T., 
Commence donc au secteur 11 sur ÂTARI et 7 sous MS/D0S. 


- Sur ATARI, Le nom de La disquette est inscrit en tête 
du répertoire sur 11 octets suivi d'un octet de valeur 08 
(Lorsqu'un nom est donné au formatage). Sous MS/005 ce nom 
est inscrit ...2?7? 


- Le dernier mot (16bits) du BOOT-SECTOR (secteur 0 de 
La disquette, offset = $1FE) doit valoir obligatoirement 
$55A8 sous MS/D0S, alors ju sur ATARI ce mot contient une 
valeur T'AS CHÉCKSUM égale à La sonme des mots du 
BO0T-SECTOR. D'autre part, Le nombre de secteurs occupés 
par chaque F.A.T. est dnscrit dans Le vingt-Lruisièe 
octet (offset = 516) du BOOT-SECTOR. Cet octet doit donc 
contenir La valeur 3 sous MS/DDS et 5 sur ATARI. 


de Un pu 
PE /3 
TURBO-Fartn et moduie M5: 
: HELLO 10 EMIT 13 EMIT 
." Helto, worto* BYE : 
programme genere: HELLO.COM 6,518 Ko, Mains de 1Kf1! 


Turbo-PASCAL : 

program hello: 

begin writeln{‘Hello, world") ent. 
Programme genere: HELLO.EKE 1,857 Ko 


TURBO-E : 

(Listing tres Long. car beaucoup 
d'aopels de bibliotheque) 
Programme genere: HELLO.EXE 5,734 Ko 


A titre anecdotioue, dAASEIII+: 
? “Hello, worid" 
QUIT 


Programme Comoile oar CLIPPER, fichier genere: HELLO.EXE 
116,784 Ko (arghhhill}. 

Le plus ranide: TURBD-Pascat 4.0 

Le plus compact: TURBO-Forth 

Le lus verbeux: TURBO-C 


Temps de compilation, plus rapide au moins r'an1de: 
TURBO-PASCAL. TURBO-C, TURBO-Forth, dRASEIII+CLIPPER. 


Seuls TURBO-Forth et TURBO-Pascal ne 
fichier intermediaire DB) 
SECRETAIRE Ou 16.09.88 R 13h02 
REPONSES A LAMBERTPH: 
Enfin La question à 1000 FR: Non, on n'envisage pas d'in- 
cure La prourammation en Langage oriente sbpet dans Le 
novau de TURBO-Forth. En fait, il n'y aura JAMAIS de ver- 
S10n 2 où 3 où 4 de TURBO-Forth. À notre avis, c'est au 
orogramme utilisateur d'apporter son extension, modifica- 
tion ou comotement. J'aurai L'occasion de m'etendre plus 
longuement Sur cette opinion dans Le cadre d'un article à 
paraitre dans JÉDI. Maintenant, concernant La prise en 
Fin des mots de definition par Le meta-comoilateur, il 

dti: 

- definir Le mot dans L'hote, 

- definir dans a cible La partie execution (stvie DOVRR, 
DOCONST, DOSTRING. etc...) 


Cette technique Pt son mécanisme 
qu'elte ne peut faire L'obiet d'une 
ce FORUM. Oonc, reponse dans JEDI. 
FORTH? Ou 17.05.88 À 19n57 

Concernant Le Forth Oriente Qbiet: Le sujet est à La mode. 
Le dernier numero de Forth Dimensions v est totalement 


JEPS N°67 Juil 148" ai 


generent Das de 


est tellement subtite 
reponse sommaire dans 
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Abstract 

À real-time expert system is being developed to serve as the astronaut interface for a series of 
Spacelab vestibular experiments. This expert system is written in a version of Prolog that is itself 
written in Forth. The Prolog contains a predicate that can be used to execute Forth definitions; thus, 
the Forth becomes an embedded real-time operating system within the Prolog programming 
environment. The expert system consists of a data base containing detailed operational instructions 
for each experiment, a rule base containing Prolog clauses used to determine the next step in an 
experiment sequence, and a procedure base containing Prolog goals formed from real-time routines 
coded in Forth. In this paper, we demonstrate and describe the techniques and considerations used 
to develop this real-time expert system, and we conclude that Forth-based Prolog provides a viable 
implementation vehicle for this and similar applications. 


Introduction 

The recent flurry of activity in commercial expert system development has all but bypassed the 
real-time computing community. Although it may be.desirable to incorporate expert systems in 
certain real-time computing problems, the amount of computing over symbols (reasoning) required 
by an expert system is difficult to implement in real time. Indeed, it is often difficult to implement 
the amount of computing over numbers required by real-time applications. The commercial artificial 
intelligence (AI) industry is moving slowly toward providing fully formed products for real-time 
expert system development (cf. [WOL87}, [LEI87}); however, general real-time symboiic 
processing remains an AI research problem. It may be several years before AI languages and 
development/delivery environments can play a significant role in real-time applications. 

Ovwing to this lack of suitable, commercially available real-time expert system development 
vehicles and to its interest in developing expert systems for data acquisition and control applications, 
the Forth community has recently become active in developing real-time expert systems [PAR86]. 
Some of the contributions of this community in this area include a diesel electric locomotive repair 
expert system [JOH83], an orbiting spacecraft command anc ‘ lexpert system [HAR86], a 
spacecraft trajectory processing data error detection expert sy RAPS) [RAS86], a real-time 
polysomnographer expert system (FORTES) [RED87], a sleep er diagnosis system [TRE87], 
some general real-time expert system development packages (EXPERT-2 [PAR84], FORPS 
[MATS87]), and a real-time version of the common expert system development language OPSS 
(REAL-OPS) {DRE86]. In each of these applications, a set of high-level (AÏ) programming tools 
(i.e., inference engine, language parser, etc.) is built from Forth primitives to take advantage of the 
high run-time execution speed offered by Forth. 

In the current paper, we describe a new Forth-based real-time expert system. This application 
is being developed using a unique implementation of the logic programming language Prolog, in 
which the Prolog interpreter is embedded in a Forth environment [ODE87]. This Prolog is fuily 
compatible with the de facto standard described by Clocksin and Mellish [CLO81] and provides a 
simple and direct interface to the underlying Forth. This interface allows creation of Prolog goals 
from Forth words and provides the basis for rapid development and integration of the real-time 
routines into an expert system knowledge base. Real-time algorithms stored in the knowledge base 
through this mechanism can subsequentiy be executed on a logic-driven basis by the expert system. 

The real-time expert system presented here will be used to assist astronauts in performing a 
series of life sciences experiments aboard the First International Microgravity Labaratory AML:-1) 
Spacelab mission. It will serve as the operator interface to the experiment data acquisition and 
control system. The series of experiments to be controlled by the expert system is known as the 
Microgravity Vestibular Investigations (MVI) and is designed to study the role of the inner ear in 
space motion sickness. An expert system was considered for the MVI experiments because of the 
complexity of the experimental procedures, the suboptimal experiment environment provided by 
Spacelab, and the high cost of failure. Highlights of this application are presented to demonstrate 
our general approach to building real-time expert systems using the Forth-based Prolog. 
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Figure 1 
Block diagram of MVI hardware. 


Instrumentation 

The MVI experiments comprise six separate scientific functional objectives, each of which is 
addressed by performing 3 to 24 related experiments. These experiments will be performed during 
the IML-I mission by teams of two astronauts. One astronaut will serve as the experiment subject. 
He will be strapped into a rotating chair mounted in the Spacelab center aisle and will don a helmet 
supporting various physical and physiological sensors. Throughout the experiments, he will be 
presented with inertial, auditory, and/or visual stimuli, and his physiological responses to those 
stimuli will be monitored, graphically displayed, and transmitted to Earth. The other astronaut will 
serve as the experiment operator. He will be responsible for setting up and calibrating each of the 
sensors and for performing each step of the 65 experiments. During each experiment, he will also 
monitor the response, safety, and well-being of the subject and communicate with ground-based 
scientific investigators. 

The experiments will be controlled by the astronaut/operator using a rack-mounted console 
known as the Experiment Control and Data Interface (ECDI; Figure 1). The heart of this console 
is an IBM PC-compatible, 8086-based, laptop microcomputer (Grid Case IT, Grid Systems 
Corporation, Mountain View, California). Within the ECDI, the PC bus is extended to a 9-slot 
expansion chassis (IBUS Systems Corporation, San Diego, California) which houses all the data 
acquisition, control, and Spacelab system interface hardware. Data acquisition and control 
capabilities are provided by two analog interface boards (DT2801, Data Translation, Marlborough, 
Massachusetts) containing a total of sixteen 12-bit differential channels of analog-to-digital (A/D) 
conversion, four 12-bit channels of digital-to-analog (D/A) conversion, and 32 bits of digital 
input/output (1/0) lines. Analog data from electro-oculogram (EOG), head acceleration, and head 


position sensors attached to the subject and helmet will be sampled at either 128 Hz (5 channels) or 


32 Hz (10 channels) and digitized using the A/D converters. Command signals, issued through the 
D/A converters and digital 1/0 ports, will control an optokinetic device, a lightemit diode (LED) 
array, ear phones, and other experiment stimulus-producing devices. 


Following digitization, two channels of experiment sensor data will be graphically displayed in 
real time on the ECDI computer screen. In addition, all acquired data, as well as all command and 
experiment condition data, will be serially transmitted at 25.6 Kbits/sec to Spacelab downlink 
systems. Spacelab system interfaces are provided by two custom boards containing I/0-mapped, 
8742 Universal Peripheral Interface processors. These boards will control data transfer between the 
experiment computer and either the Spacelab high rate multiplexer (HRM) or the Spacelab video 
analog switch (VAS) using pairs of memory-mapped RAM ping-pong buffers and Universal 
Asynchronous Receiver/Transmitters. The HRM and VAS provide interfaces for digital and video 
data telemetry to ground-based scientific and mission control observers. 
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Expert System 


Although Spacelab provides a unique facility for studying the effects of microgravity on various 
physical and physiological processes, its environment is less than optimal for performing complex 
scientific experiments. Crew time and training are limited, communication between 
astronaut/operators and ground-based scientific investigators is limited, and crew members are likely 
to experience some degree of motion sickness during the first few days of a mission. The MVI expert 
system is designed to reduce the impact of these factors on the quality of the MVI data collection. 
This expert system should enhance the ability of the astronaut/operator to collect high quality data 
in the Spacelab environment by managing the complexity of the experimental procedures and by 
offering guidance through the experiment operations. 

The heart of the expert system is its knowledge base, which is made up of a data base containing 
facts about experiment procedures and protocols, a rule base containing general rules for carrying 
out the experiments under normal and abnormal conditions, and a procedure base containing real- 
time routines coded in Forth. The rule base is used to step the operator through each experimental 
protocol, as specified in the data base, while simultaneousiy activating appropriate Forth tasks stored 
in the procedure base. The knowledge base is primarily declarative, relying on the Prolog inference 
engine for control; however, the Prolog builtin predicate, used to incorporate Forth routines into 
the knowledge base, allows procedures to be invoked from Prolog (a complete description of the 
Forth-based Prolog is provided in a companion paper in this issue [ODE87]). 

À knowledge base structure was selected for representing the experiment procedure data rules 
in order to provide a flexible system that could be easily modified. This format allows separation 
of the data from the inference rules and real-time routines and thereby permits restructuring of rules 
without changing the data organization or real-time behavior. The structure of a knowledge base also 
greatly reduces the distance between the program and the user; both data and rules are stored in 
blocks of text that can be read as paragraphs by natural language processing routines as well as by 
the programmer and the expert Principal Investigators. This feature will aid in the development of 
user-friendly 1/0 routines and explanation facilities. 

There is a top-level query language through which the experiment operator has access to the rule 
base. Upon being queried, the rule base extracts appropriate data from the data base and provides 
that data as input to real-time algorithms in the procedure base. The real-time algorithms then use 
this data in setup and execution of machine control tasks. At the present time, the data and procedure 
base development is essentially complete. The rule base remains under development, however, all 
of its essential components, including those described below, have been developed and tested. A 
detailed description of the knowledge base and execution process follows. 


Data Base 
The MVI expert system data base consists of six records, each of which encodes all of the 
operational requirements for a single functional objective. Each record ha° -* structure (Figure 


2). The primary node in each record is the functional objective identifier sf the n secondary 
nodes branching from the primary node identifies the location of all the ation required to 
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Example of the tree structure of the expert system data base. 


EE 


perform a single ‘experimental protocol (test) within the functional objective. Four tertiary nodes | 
branching from each secondary node identify the location of the head position, visual condition, 

experimental stimulus, and special equipment information required by the particular protocol. The. 
set of nodes branching from the tertiary nodes contains the actual data pointed to by the identifiers. 

AI nodes further to the right add clarification and refinement to this data. As an example, Figure 

2 shows that the experimental protocol Test #1 of Functional Objective #1 requires that an inertial 

stimulus be provided by the rotating chair and that this stimulus have a sinusoidal velocity profile 

with an amplitude of 55°/sec, a frequency of 0.25 Hz, and a duration of 32 seconds. 

The Prolog clause required to encode a data tree similar to that diagrammed in Figure 2 is 
presented in Figure 3. Each branch node is represented by a predicate having an arity equal to the 
number of parenthetical objects following it and separated by commas. The arity of a predicate is 
fixed. For example, the arity of the predicate functional__objective is 3: the object 1 (the functional 
objective number); the object vor__ suppression (the functional objective name); and a list, delimited 
by square brackets, which contains objects, predicates, and other lists that identify the remainder 
of the data required for Functional Objective #1. In Prolog, records can be organized into pseudo- 
English paragraph structures like that in Figure 3. This helps to bring the source code much closer 
to both the programmer and the domain expert. Prolog unification is the mechanism used by the 
expert system to access data fields within the data base. 


146 LIST 

| /*x expert system development area */ 

functional_objective(1,vor suppression, 

[test(1,head position(yaw), 
visual _condition(d,[dark, eyes_open,straight aheadl]), 
stimulus(rotator(sin(ampl (55), yfrea(25), dur(32)))), 
special equipment (none), 

test(2,head position(yau), 
visual condition(d,ldark,eyes _open,straight aheadl), 
stimulus(rotator(sin(ampl (55), freq(1), dur(24)))), 
special equipment (none)), 

test(3,head position(pitch), 
visual_condition(ft,[fixate on LED module __targetl), 
stimulus Caudio(sintanpl (55), yfreat1), dur(24)))), 
special_equipment(LED module))]). 
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Figure 3 
Prolog clause required to encode a data base record similar to the example presented in Figure 2. 


Rule Base 

The rule base will contain approximately 50 Prolog clauses, which the operator accesses via the 
user query language and the expert system accesses through unification. The primary execution rules 
have been developed, and some of them appear in Figure 4. Lines 2-3 in Block 147 present the 
general rule for executing a functional objective. The operator can execute a functional objective 
using the query fo(X). If X is instantiated (equivalenced) to a functional objective number for which 
a data record exists within the expert system data base, then that particular functional objective will 
be executed. If X is instantiated to a functional objective  mber for which no data record exists, 
the second fo(X) clause (Block 147, Line 5) will ’ ‘ed to report the error. If X is not 
instantiated, the first functional objective record ir, .A base will be found and used for 
execution. Thereafter, successive functional objectives could be executed by forcing Prolog 
backtracking at the conclusion of each functional objective execution. This could be accomplished 
by requesting more solutions to the top-level query. 

147 LIST 


@ /x expert system development cont */ 

1 

2 fo(xX) :- functional objective(X,Y,L), 

3 execute fo(L). 

4 

5 fo(X) :- nl,nl,write(invalid fo number),nl. 
6 

7 

8 execute fo(L) :- member(test(N,HP,VC,ST,SE),L), 
9 perform test(N,HP,VC,ST,SE). 
10 

11 

12 execute fol) :- nl,nl,write(fo complete),nl. 
13 

14 

15 
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148 LIST 
@ /x expert system development cont */ 
1 
2 perform test(N, head_position(Pos), visual _condition(Eyes, ), 
3 stimulus(Input_ Device), special_equipment (Device)) Ms 
LA 
5 set _up(Device), 
6 restrain head(Pos), 
7 command _ subject(Eyes), 
8 data_on, ! 
9 start(Input Device), 
10 stop(Input Device), 
11 data_off, 
1e command _subject(relax). 
13 
14 
15 
Figure 4 


Prolog source code implementation of a portion of the MVI expert system rule base. 


Procedure Base 

The procedure base is a set of Forth colon and code definitions used to control all the MVI 
experiment hardware and to execute real-time data acquisition, display, and transmission tasks. 
Sample code demonstrating the mechanism used for building the procedure base is presented in 
Figure 5. Block 141 is a Forth block, compiled using the Forth LOAD command. Block 145 is a 
Prolog block (as are all blocks in Figures 3 and 4) and is compiled using the Forth word 
CONSULTING (see Block 141, Line 11), which has an action similar to that of the Prolog predicate 
consult [CLO81]. 

In Block 141, a small polyFORTH terminal task, SIMUL, is constructed in Line 1 [VANS83]. 
A simple function is assigned to that task: the Forth word SEE (Line 4) causes the contents of the 
variable EVENTS to be displayed on the user's terminal and increments the displayed value twice 
per second; the Forth word DONE (Line 5) deactivates the background task. In Lines 7 and 8, two 
new Forth words, $DATA_ON and $SDATA_OFF, are defined. These words are formatted to become 
Prolog built-in predicates; they include the R> DROP necessary for execution in the Prolog 
environment [ODE87] and a $TRUE word following all other execution, which indicates to Prolog 
that the word succeeds (is true). $DATA_ON starts the terminal task and $DATA_OFF stops the 
terminal task. The Forth words $DATA ON and $DATA_ OFF are defined as Prolog objects 
data_on and data__ off in Block 145 (Lines 4 and 5). These objects can be used as Prolog goals, 
as can any other Prolog predicate; however, the process of testing one of these goals results in 
execution of its Forth procedure. Forth CODE definitions can be made Prolog objects using the same 


technique. 
141 LIST 
@ ( Simple multitasking example) 
1 500 64 @ TERMINAL SIMUL GILD SIMUL CONSTRUCT 
2 
3 VARIABLE EVENTS 
&  : SEE SIMUL ACTIVATE BEGIN 1 EVENTS +! 5@@ MS AGAIN ; 
5 : DONE SIMUL ACTIVATE STOP ; 
6 
7 : SDATA ON R> DROP ." Start" CR SEE STRUE ; 
8 : $SDATA OFF R> DROP .'' STOP'' CR DONE STRUE ; 
9 
18 
11 145 148 CONSULTING € application rule base follows) 
12 
ee. 
145 LIST 


@ /x test screens for prolog -- needs SIMUL task */ 
member CX,[X,_ 1). 
member(X,[_,Y1) :- member(X,Y). 


1 
2 

3 

& data on :- builtin($DATA_ ON) 
5 data_off :- builtinC(S$DATA OFF) 
6 
E 


*.… Fa 
4 
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Logic-Driven Real-Time Procedures 


The main advantage of this real-time expert system is its ability to perform real-time data 
acquisition and control tasks on a logic-driven basis. To perform Functional Objective #1 of the MVI 
experiments, for example, the operator could type in fo(1) at the ECDI keyboard. This would cause 
Prolog to locate the first fo(X) rule (Figure 4, Block 147, Line 2}, instantiate the X to 1, and 
attempt to prove the rule true by satisfying all the goals on its right-hand side. To satisfy the final 
goal execute__fo(L), Prolog would locate the first execute__fo(L) rule (Block 147, Line 8) and 
attempt to satisfy each of the goals on its right-hand side. The first of these goals, member(test(N, 
HP, VC, ST, SE), L), identifies the parameters of the first test in the data base record associated 
with Functional Objective #1 (Figure 3) using the member rules given in Biock 145, Figure 5. The 
second of these goals, perform. test(N, HP, VC, ST, SE), causes Prolog to perform that test using 
the perform __ test rule in Block 148. Prolog performs the test as a side effect of trying to prove the 
perform_ test goal true. Unification is used to PasS parameters found in the data base record into 
the procedure base. 

The goals in the body of the perform __test clause sequentially perform a generic Vestibular 
experiment. For example, using the Prolog execution logic (cf. [CLO81]) and the data base record 
presented in Figure 3, the variable Device would be instantiated to none in the perform_test rule. 
The first goal in the body of that rule would then become set__up{none), indicating that no special 
equipment is required to perform this particular test. The operator would be informed of this fact 
when Prolog attempted to satisfy that goal (code not shown). As the Prolog execution continued, the 
operator would next be instructed to restrain the subject's head in the yaw position, then to be sure 
that the subject’s eyes are in the dark, and finally to command the subject to keep his eyes open and 
look straight ahead (code not shown). 

Next, having completed the setup phase of the test, the expert system would begin performing 
the test. To do this, Prolog would attempt to satisfy the goal data__on, which is a built-in Forth 
definition (described previously). The Forth definition $SDATA_ON wouid be executed as Prolog 
attempted to determine whether the goal data_on is true (the last Forth word in the $DATA ON 
definition is $TRUE which indicates to Prolog that the goal has succeeded). Thus, in satisfying the 
data_on goal, Prolog indirectly executes the Forth definition SEE. In the current example, SEE 
activates the background task S IMUL (see Procedure Base). In the MVI expert system, however, 
the data_on goal activates a Forth background task that acquires analog data from the subject, 
graphically displays selected data channels on the Computer screen, and transmits the acquired data 
into the Spacelab downlink systems. Once the data acquisition, display, and transmission systems : 
had been activated, the expert system would initiate the experiment stimulus. This would occur as 
Prolog attempted to satisfy the next goal in the body (start(Input__ Device) ) and indirectly 
activated, in the MVI expert system, another Forth background task, which would control that 
device according to parameters passed to the task from the data base. Once the stimulus provided 
by the input device was complete, the start(Input__Device) goal would succeed. The expert system 
would then turn off the device control background task as Prolog satisfied the stop(Input__ Device) 
goal and the data acquisition task as Prolog satisfied the data_ off goal. Finally, the operator would 
be notifed that the test was complete and would be instructed to allow the subject to relax as Prolog 
satisfied the command_ subject(relax) goal. 

At this point, the expert system would have completed performing the experiment. Prolog 
would have satisfied perform__ test, which, in turn, would satisfy execute__ fo, which is the last 
goal of fo(1). Prolog would therefore notify the operator that fo(1) was complete and would await 
further instruction. The operator would then have the option of accepting this solution (thereby 
concluding the experiment) or of asking Prolog to find a new solution, should one exist. The latter 
Option would cause Prolog to backtrack (see [CLOB81]) to attempt to resatisfy the initial goal. The 
Figure 4 rule base is set up so that backtracking would result in an attempted resatisfaction of the 
execute_ fo(L) goal. Prolog would successfully resatisfy this goal if it found another test (one not 


previously found) on the list of tests associated with Functional Objective #1. If such a test were 
found, it would be executed using the logic presented above (only the parameter values wouid 
change). Thus, following each test in the functional objective, the operator would be given the option 
of proceeding with the next test or aborting the study. By this mechanism, a single set of Prolog rules 
(Figure 4) can be used to carry out every test under all functional objectives. If the operator chooses 
to backtrack to the next test after all tests for a particular functional objective have been performed, 
the execute_ fo(L) goal would fail, This failure would cause the fo(1) goal to fail and Prolog to 
awaït a new input goal from the operator. 


Real-Time Operation 


The MVI expert system provides real-time experiment control by activating and deactivating 
polyFORTH background and terminal tasks [VANS83)] on a logic-driven basis. À portion of the MVI 
round robin multitasking loop is presented in Figure 6. Prolog (and the expert system) reside in the 
OPERATOR task, which is the primary terminal task in the round robin loop; all keyboard entries 
are handled through this task. When the MVI computer is turned on, the only active task is 
OPERATOR. The expert system controls the graphics display terminal task and the device driver 
background tasks as side effects of responding to operator queries (see the previous section). Only 
those tasks that need to be active at any point in the experiment protocol are activated, Once a task 
has completed its required action it is deactivated. 
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To maintain accurate, high rate (128 Hz) data sampling intervals, data acquisition is controlled 
by an interrupt service routine (ISR) triggered by a Spacelab clock signal. The data transmission 
background task is controlled by the ISR to assure synchronization between the MVI data stream 
and the Spacelab downlink system. The expert system can control data acquisition and transmission 
by masking and unmasking the Spacelab clock interrupt signal and by changing the ISR in use by 
altering its vector address. Either of these techniques can be employed on a logic-driven basis. By 
using this multitasking technique, various real-time processes can be executed concurrently with the 
expert system. This reduces the required logical inference processing rate of the Prolog. 
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Figure 6 
Portion of the MVI expert system round robin multitasking loop. 


Discussion 

Forth is one of several possible development languages for implementing real-time data 
acquisition and control processes. We chose it because of its speed, small size, and ability to support 
rapid prototyping. Prolog is one of several languages for symbolic computation. We chose to use 
it for several reasons. One significant factor was our familiarity with it. We have several years 
experience building significant expert system shells and applications (cf. (BAR85)); by implementing 
Prolog we could reuse a good portion of this software. Another important factor was that Prolog has 
a small standard kernel; thus, its implementation could be made small and could be accomplished 
quickly. In our estimation, this compactness is in contrast to LISP: few have braved attempts at a 
full implementation of the Common LISP standard. Another selection factor was that there is a large 
community of Prolog users and programimers as well as a sizable body of literature describing Prolog 
solutions to problems in symbolic computation. The availability of this Prolog literature will allow 
us to avoid both the reinvention of the wheel and the problems inherent in translating programs. The 
popular production rule language, OPS5, shares some of these features. Indeed, Dress has developed 
a real-time version of OPSS using Forth [DRES6]. Unfortunately, the data-directed style of OPSS 
was not a good fit with the goal-directed applications We had in mind. Other Forth-based expert 
system development tools, such as Expert-2 [PAR84], FORPS [MAT87], and FORTES [RED87], 
offer smaller kernels and higher execution speeds than our Prolog interpreter but suffer from limited 
usage, nonstandard syntax, and lack of tested problem-solution paradigms. 

We feel that our integration of Prolog and Forth has been successful in addressing a number of 
important design issues. As the controller for the series of vestibular investigations aboard the IML-1 
Spacelab mission, our system must observe close tolerances on the timeline and remain well 
integrated with the other systems of people and machines on the shuttle. It is therefore imperative 
that the system provide clear and understandable information to the operator and attempt to reduce 
operator fatigue and error when on-line. Our approach has been to provide the system with the 
knowledge it needs to manage these tasks in à variety of situations while simultaneously providing 
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a tlexible user interface that allows the operator to exert greater control if conditions warrant. 
Prolog, being goal-directed and largely declarative, is well suited to this approach and has allowed 
us to design and implement rapidly. 

Another advantage of our Forth-based Prolog is that the data acquisition, control, display, and 
transmission procedures are readily coded in Forth, permitting us to satisfy speed constraints. By 
using a multitasking Forth, we were able to implement an architecture that allowed us to avoid 
having to queue data or delay responding to changes until reasoning stops—in effect permitting 
asynchronous reasoning where needed. Indeed, the most unique feature of the MVT expert system 
knowledge base is its procedure base, which comprises all the Prolog objects formed from Forth 
colon and code definitions using the builtin predicate. By constructing this procedure base, all real- 
time routines could be developed using Forth and yet controlled by the inference mechanism 
provided by Prolog. This not only separated software development requirements, but also separated 
execution speed requirements. Consequently, our real-time expert system could be developed for 
a small computer with a relatively slow version of Prolog. 

The procedure base allows the expert system to manage the real-time computing tasks and 
thereby reduces the complexity of the procedures that the operator needs to perform. Given the 
suboptimal environment that Spacelab provides for complex scientific experiments and the high cost 
of losing data from these experiments, this feature is extremely important. The data and rule bases 
also contribute to reducing the complexity of the operator's task by “knowing” the experimental 
protocols, equipment setup requirements, and calibration procedures, and by being able to guide the 
operator through these. 

Every real-time computing task does not require an expert system; in fact, few do. As the 
complexity of the user interface requirements or software logic increases, however, expert system 
tools should be considered. We feel that our decision to build an expert system to control the MVI 
experiments reduced the software development effort. Although many of the features provided by 
the expert system could have been developed using traditional engineering languages such as Forth, 
Assembler, or Fortran, the initial program development time would have been much longer, and the 
software modification and maintenance tasks would have become very difficult. Prolog, by its 
declarative nature, substantially reduced the distance between the programmer (and expert) and the 
code. This feature allowed rapid prototyping and simplified software maintenance. Modifications 
to Prolog source code can often be made by life scientists with no computer training” 

Successful space-based computing applications often test the engineering skills of their 
developers. In many cases, a careful consideration of a host of software/hardware performance 
issues has led to the choice of Forth as the language for development and delivery ([HARS5], 
[RAS86], [HAR86]). We have shown that the technology exists today to provide viable knowledge 
system solutions to such applications as an adjunct to the underlying Forth. Furthermore, we believe 
that our Forth-based Prolog can be used to provide AÏ solutions to many well-chosen real-time 


problems. 
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consacre. Turbo-Forth dispose en ce domaine d'atouts ma- 
leurs. Des prototypes existent deja, tres avances. nous 
attendons que Les choses se decantent aux US pour sortir un 
module additionnel 0.0. pour TF: nous ne voudrions pas 
faire cavaliers Seuls dans un domaine qui cherche encore 
ses marques. À vrai dire nous avons meme de l'avance sur 
Les americains. JEDI ne devrait pas tarder à s'en faire 
L'echo. 


Les preoccupations Sont communes: La mise au point des 
outils de developpement de F32 sera considerablement 
facilitee par L'introduction des concents de La program- 
mation orientee objets. Quoi de plus "obiet" qu'un proces- 
seur dont Le jeu d'instructions forme Les “messages au 
sens L.0.0,? Et qu'est-ce qu'un emulateur où un cross- 
compilateur sinon des modules d'instanciation ? Suis s1in- 
cerement desole de n'etre pas a Paris pour La reunion F3? 
Compte sur notre secretaire pour me remplacer, F7 
SECRETAIRE Du 20.09.88 A 08h42 
REPONSE À NICOLAS B: Pour telecharger sur SAM#JEDI à l'ai- 
de de PROCOMM, utilisez Le transfert de fichiers en ASCII. 
Placez PROCOMM en mode capture, selectionnez Le fichier à 
transferer sur SAMx puis Lancez La capture sur PC, tapez 
ENVOI sur minitel. 


ESTHÈTE Du 22.09.88 À 18h39 
AYANT OU MAL A ME LANCER JE CHERCHE BIBLIOGRAPHIE OÙ 
TROUVER ‘TOUR DE FORTH' MEME D'OCCASION ? MERCI 


SECRETAIRE 


Du 26.09.88 À 14h18 
PREMIERES IDÉES SUR F32: MateriellLement: 

- 32 broches bus d'adresse 

- 8 broches bus de donnes 

- diverses broches rats controle 
Registres principaux 32 bits: 

- TO pour TOP: sommet pile data 

N° pour NEXT: seconde donnee pile 

- [index ou compteur repetition 

- PC compteur programme 

- OFS Offset compteur programme 
liste non Limitative 
Qperateurs: 

- internes RARE #2 bits 

- externes 8, 16 ou 32 bits 
Operateurs: 

- internes integralement 32 bits 

- externes 6, 16 ou 32 bits re 
d'entend par operateurs internes, ceux qui effectuent ex- 
clusivement des operations registre à registre. Les opera- 
teurs externes Sont ceux qui effectuent des operations me- 
moire vers registre et inversement. 

En limitant Le format d'une instruction sur 8 bits, on dis- 
D05e quand meme de 256 possibilites s1 L'on tient compte 
d'un projet RISC, donc amene à en compter nettement moins 
dans La realite, 

Les codes instructions: 

- registre vers memoire et inversement avec deux bits de 
poids faible Ho taille des donnees à traiter. IL 
reste 6 bits de poids fort, soit 64 possibilites. 

: Ron à registre Sur huit bits, soit 256 possibili- 
tes. Soustraire (es combinaisons exploitees par regt-)mem. 
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Exemple, Le chargement de T depuis La memoire sera execute 
par une instruction de type LIT: 

ñ CONSTANT (tit,) 

: FO8BITS 0 CR ; 

: F6BITS À OR ; 

: 132BITS 2 OR : 

: cut, (lit,) PO8BITS €, : 

: Lit, Cit,) MAGBITS , : 

: dtit, CLit,) 132BITS , , : 

A L'execution du code operateur de  CLIT, Le 
microprocesseur F32 incremente PC de 2 unites apres avoir 
charge L'actet de poids faible de T avec La valeur qui 
suit Le code opera-teur: pour LIT, PC est incremente de 3 
unites: pour OLIT, PC est incremente de 5 unites. 
Ce principe est applicable auss1 aux operateurs @ et 1. 
Pour Les opérateurs executant des operations regt-)reg, 
115 agiraient 1ntegralement sur 32 bits. 
Exemple, L'anversion du contenu de T et N sera execute par 
Swap, Soit n Le Code operateur de swap: 

SW, NC, | 
Ainsi, une operation simple sera Lue en memoire en Un seul 
cycle machine. Pour Les sauts, il n'v aurait que deux 
cate-gories: 

- saüt conditionnel 

- saut inconditionnel ; | 
Un bit d'indicateur Z autorise ou n'autorise pas L'execu- 
tion du saut. : 
On peut envisager trois sorte de sauts: 

- saut court, operande 8 bits 

- saut moyen, operande 16 bits 

- saut at operande 32 bits 
La valeur du saut est relative. sait n Le code operateur 
de branch: 

: (branch,) n :; 

: Sbranch, (branch.) IO8BITS €. ; 

: branch, (branch,) /16BITS , : 

: Lbranch (branch,} /328ITS , ,: : 
nota: , , peut etre remplace par d. L'assembleur-compila- 
teur choisira EU A) une des trois Longueur 
de saut en fonction de La taille du branchement. IL est 
fort improbable d'avoir à utiliser Le branchement Long. 

Le Saut conditionnel aura comme mnemonigue ?branch. 
Appel de sous programme par call,: identique à branch, 
mals en adressage absolu. 

Il y aura un code specifique ret, de retour de sous- 
programme et non un bit de retour comme pour Le NC4016. 
En multi-tache, chaque registre sera duplique en hard et 
un selecteur de tache permettra d'acceder à un des 
registres de tache. Soit n Le nombre de taches possibles, 
il Voaura na registres T, (14, T2, T3...1n-1, În), mais à 
chaque instant, on n'accedera qu'au registre T de La tache 
caurante. | 
Voici pour une premiere ebauche des caracteristiques de 
F32, Le debat est ouvert: | 

- Liste des instructions necessaires 

- classe des instructions de base 

8 partir de ceci, definition du mecanisme F32: 

- en fonction de sa destination 

- Ses possibilites 

- configuration materielle. 

Bon courage... 


TICK Ou 28.09.88 À 12h53 


HELLO 
Ya T'IL DES PETITS MALENS QUI ON DEJA COMMANDE DES SDF TS EN 
DIRECT AUX USA VOIR LES PUBS DE BYIE ON ON. PAYE PAR CARTÉ 
VISA. LES MALINS EN QUESTION SERAIENT TRES GENTILS DE ME 
DONNER TOUS LES IUYAUX DANS MA BAL. 
UN BASE 4 AU TIERS OU PRIX C'EST PAS NUL. 
MERCI D'AVANCE 
TICK 
SECRETAIRE Du 28.09.88 À 16h38 | 
CONCERNANT COMMANDE DE SOFT AUX USA: DIFFICILE DE RECLAMER 
G] NUMERO DE CARTE VISA MAL EMPLOYE. COMME LA POSTE NE FAIT 
Pas DE MANOATS INTERNATIONAUX FRANCEC-)USA. DEMANDEZ À 
VOTRE BANQUIER O'EMETTRE UN CHEQUE DE BANQUE EN DOLLARS. 
BEAUCOUP LE FONT. VOUS EVITEREZ LES SURPRISES. ET LE PAIE- 
MENT EST AINSI JOINT À LA COMMANDE. 
SECRETAIRE Bu 28.09.88 À 15h43 
CONCERNANT BASE 4 A MOINS DE 1000 FR. VALABLE SEULEMENT Si 
VOUS  ECHONGEZ AVEC L'ORIGINAL DE DBASE ITI+ EN VOTRE 
POGSESSION. POUR CONNAITRE LES CONDITIONS EXACTES, S'AD- 
RESGER A LA COMMANDE ELECTRONIQUE. ATTENTION, DBASE 4 NE 
SERA PAS DISPONIBLE AVANT NOVEMBRE 86. 
SECRETAIRE Du 24.09.88 À 16h46 
J'AI PRIS CONTACT AVEC HARRIS AU SUJET DU RTX2000. DES QUE 
J'AURAI DES DOCS, JE  PONORAI UN PAPIER SUR CETTE MERVEIL- 
LE. TERE INFO: LE KIT RTX2000 AVEC MEM ET CIRCUITS COUTE 
QUAND MEME 2000$. MAIS SI NOS CONTACTS AVES HARRIS SE CON- 
FIRMENT. JE PENSE AVOIR DES PRIX. J'EN CONNAIS QUI NE VONT 
PAG REGRETTER LE MONTANT DE LEUR COTISATION ET D’AUTRES QUI 
VONT SE REABONNER... 
XXXXX Du 29.09.88 A 15h42 
CONCERNANT RTX2000  (BTX-)TELETEL) 
LE 29.06.88 LE GROUPE DE TRAVAIL RTX2000 S'EST CONSTITUE À 
MUNICH. COORDINATEUR QU GROUPE DE TRAVAIL HERR MAX DIEZ. 
HARRIS SEMICONDUCTOR 6MBH POSTFACH 1232 D-8057 ECHING TEL: 
(19-49) 0891319 00 536 
LE QUT OU GROUPE EST, à COURT TERME, LE DEVELOPPEMENT D'UNE 
PLATINE AVEC FORTH ET EPROM. 
JNBK Du 01.10.88 À 23h30 
ATMOS ET JASMIN-2 CHERCHENT CONTACTS EN F-83 PARIS ET RE- 
GION PARISIENNE ECHANGE DE LOGICIELS BAL JMEK. 
JMCFORTH Du 03.10.88 A 16h20 
VEND CAUSE OOUBLE EMPLOI: 
VOL.8 FOTH DIMENSION (86/87)...150 F 
VOL.9 FORTH DIMENSION (87/88)...150 F 
DESIGNING & PROGRAMMING PERSONAL EXPERT SYSTEM (C.TOWNSEND 
& D.FEUCHT).,140 F 
TOOLB00K OF FORTH VOL.1 (DR.008B'5).170F 
TOULBOOK OF FORTH VOL.2 (DR.D0BB'5).220F 
PRIX AUQUEL IL CONVIENT DE RAJOUTER LES FRAIS D'ENVOI PLUS 
LA TAXE DE CONTRE REMBOURGEMENT. TEL 94.22.10.36 POSTE 14 
AUX HEURES BUREAUX (JM COURET) 
ADRESSE J.M. COURET 9 RUE RACINE 83000 TOULON 

Ou 03.10.88 À 18h58 


HARRIS RTX2000 

AVANT PREMIERE: HARRIS ANNONCE UN SEMINAIRE A PARIS LE 18 
NOVEMBRE 1968 POUR PRESENTER LE RTX2000, PROCESSEUR 16 BIT 
TEMPS REEL EN LANGUAGE FORTH. POUR TOUS RENSEIGNEMENTS: 
HARRIS 9 RUE FERNAND LEGER 91190 GIF VETTE TEL 6307780? 

EUREKA Qu 03.10.88 A 22h23 

SALUTATIONS A TOUS. JE VOUS PROPOSE DE M'AIDER A RESOUDRE 
UN PROBLEME INTÉRESSANT: JE POSSEDE UN ARCHIMEDES TRES 
RAPIDE ET JE VOUORAIS TURBO FORTH EN MODE NATIF CECRIS EN 
ASSEMBLEUR À RM RISC) JE CHERCHE DES SOURCES POUR ECRIRE 
TOUT DEPUIS LE KERNEL JUSQU'EN HAUT TURBO F. DES AMATEURS? 

SI OUI, ME REPONDRE OANS MA BAL OU ME TELEPHONER AU 47 78 
a APRES 21H EN DEMANDANT MICHEL A + POUR D'AUTRES 


SECRETAIRE Ou 04.10.88 A 10h43 
J'ai commence a ecrire un meta-assembleur NOVIX NC4016. 
Depuis j'ai recu La doc du HARRIS RTX2000. Houla Lal C'est 
vraiment une bombe! Pour info: 

- registres: 
SLR Limite de pile 

SPR pointeur de pile 


IMR masque d'anterruption 

I8CR basetcontrote d'interrupt. 
DPR data par adresse 

UPR user page adre55E 

CPR code page adresse 

UBOR user page adresse intra-seqm 
tamers 


TCR? | 

TOP régistre de sommet de pile 

NEXT second element de pite 

? index d'iteration 

IR report sommet pile retour 

MD registres transition pour 

SR mutipl. et racine Carree 

PC compteur programme 

ER registre indicateurs 

Le RIK2000 ceut Lire des donnees en memoire Selon LE MECA- 
nasme INTEL ou MOTOROLA, Pour selectionner un de Ces Üeux 
modes. il sutfit de positionner Le bit b3 du registre CR. 
A L'initialisation, c'est Le mode MOTOROLA qui est 
selection-ne. | | 

Le RTX2000 reprend La confiquration materielle du NOVIX, à 
savoir: 

- deux zones memoires independantes pour 
donnees et retour: taille 255 mots Chaque. 

- une zone memoire Békmot principale, 
ptusieurs bancs additionnels, via Le port x. 
Mais surtout, al est tres performant sur Le plan 0e La 
gestion des interruptions. Un debordement OU une insuf- 
fisance de donnees de pile donnees/retour aenere une 
interruption. | 
En conclusion (somnaire...), Le RTK2000 semble etre bien 
Le mro-processeur ideal de developpement industriel 
applique a des applications tvoe ‘temps-reel*. Deja, 50n 
cousin NOVIX pouvait faire du traitement Video avec 5e5 
8BMIPS 8 millions d'instr./sec). 

Tres faible consommation electrique, maximum 1 watt 
(typiquement, SmAIMhz), temperature de fonctionnement: 
5y+-10% à -40(T(+85, 


Les piles de 


selectable en 


Alors, mordus que vous etes de FORTH, a quand un €. 
PROLDG, FORTRAN, MSD0S, et tutti quanti ecrits en FORTH 
RTX2000. 

SECRETAIRE Ou 04.10.68 À 11h17 


RECU DE FRED BEHRINGER, fonctions SÛR: 
1ere verS10n: 
: SOR & ut --- u2) 

HERE ! O PAD i 

12 4 4 16 32 64 128 

ÿ 0 DO OUP PAD @ + OUP * HERE 0 

u) IF DROP O0 THEN PAD #1! 
LOUP  PAD @ : : 

eme version de S0R, extraite manuel de ZECH.: 


RU y) 
qu 0: IF EXIT THEN 


6 
BEGIN Z2OUP CO SWAP UM/MOD SWAP DROP 
QUER + 21! 
QUP ROT - ABS 2! 
MHILE  REPERT : 
3eme version, sur nombres 32 bits: 
: UDC € ud? ud? -- fl) 
QUP 3 PICK = 
IF  ROT 2DROP LU 
ELSE SWAP OROP ROT DROP UX THEN : 
. UD» Cud?t ua? --- fl) 2SWAP UD : 
. U0= € ud1 ud? --- fl) D- 00: : 
: UDMAX € ud1 ud2 --- ud3) 
4OUP UDC IF 2SWAP THEN 2DROP : 
: SÛR € ud? --- ud?} HERE 2! 0 PAD ! 
12 4 8 16 32 64 128 256 512 
1024 2048 4096 8192 16384 32768 
16 0 00 OUP PAO & + OUP UMx HERE 26 
.U0) IF DROP 0 THEN PAD +! LOOP PAD @ : 
eme version, code machine extraite du manuel de ZECH.: 
CODE SR { u --- y) 
CX POP O8 # OL MOV 0 # AX MOV AX OX MOV 
BEGIN STE OX RCL EX SHL AK RCL 
MP >= IF DX AX SUB 


OX AX € 
DX SAR EL PET peer ERN-cobl DÉS AE 
JEN K°G7- Ju 


Jet 1/97 
25 


